Zdravím.
Jak stahnout nějaky soubor s netu, když ardesa začina HTTPS?
Uplne tak isto ako http?
wget -O /tmp/index.html https://www.google.com
...
2017-05-12 09:31:11 (282 KB/s) - '/tmp/index.html' saved [11607]
Si přehled to první slovičko Lazarus ;)
Nemám vyzkoušeno, ale pomocí Synapse http://wiki.freepascal.org/Synapse#From_an_HTTP_server (http://wiki.freepascal.org/Synapse#From_an_HTTP_server) by to snad šlo, nebo možná curlpas http://curlpas.sourceforge.net/curlpas (http://curlpas.sourceforge.net/curlpas)
link na Synapse https je správně http://wiki.freepascal.org/Synapse#From_an_HTTPS_server
pro wget: přidat --no-check-certificate, lze to dát i do preferencí, aby se to furt nemuselo psát (takhle dlouhý 22 znaků parametr vymyslel nějaký sadista)
Nebo zjednodušeně nějak takto:
uses
fphttpclient;
procedure Download(AURL: string);
var
AClient: TFPHTTPClient;
AStream: TMemoryStream;
AFileName: string;
begin
AClient:= TFPHTTPClient.Create(nil);
AStream:= TMemoryStream.Create;
try
AClient.Get(AURL, AStream);
AFileName:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + ExtractFileName(AURL);
AStream.SaveToFile(AFileName);
finally
AClient.Free;
AStream.Free;
end;
end;
...
Download('https://i.iinfo.cz/images/214/rust-1-prev.jpg');
předpokladem je, že v systému existuje openssl knihovna
Citace od: daks kdy 12. 05. 2017, 13:25:03
Nebo zjednodušeně nějak takto:
uses
fphttpclient;
procedure Download(AURL: string);
var
AClient: TFPHTTPClient;
AStream: TMemoryStream;
AFileName: string;
begin
AClient:= TFPHTTPClient.Create(nil);
AStream:= TMemoryStream.Create;
try
AClient.Get(AURL, AStream);
AFileName:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + ExtractFileName(AURL);
AStream.SaveToFile(AFileName);
finally
AClient.Free;
AStream.Free;
end;
end;
...
Download('https://i.iinfo.cz/images/214/rust-1-prev.jpg');
předpokladem je, že v systému existuje openssl knihovna
Takto nějak si programátor v Pascalu začátkem 90. let jistě představoval zářnou budoucnost programování.
Citace od: Inkvizitor kdy 14. 05. 2017, 09:51:41
Takto nějak si programátor v Pascalu začátkem 90. let jistě představoval zářnou budoucnost programování.
chudák...
Citace od: daks kdy 14. 05. 2017, 13:33:54
Citace od: Inkvizitor kdy 14. 05. 2017, 09:51:41
Takto nějak si programátor v Pascalu začátkem 90. let jistě představoval zářnou budoucnost programování.
chudák...
Tobě ten kód nepřijde poněkud nemístně ukecaný, pokud znáš nějaké jiné jazyky a jejich standardní knihovny?
Citace od: Inkvizitor kdy 14. 05. 2017, 14:07:26
Tobě ten kód nepřijde poněkud nemístně ukecaný, pokud znáš nějaké jiné jazyky a jejich standardní knihovny?
z tohoto pohledu nazíráno, jsou jazyky, co si vedou líp a některý zase hůř ;)
Citace od: daks kdy 14. 05. 2017, 14:44:22
Citace od: Inkvizitor kdy 14. 05. 2017, 14:07:26
Tobě ten kód nepřijde poněkud nemístně ukecaný, pokud znáš nějaké jiné jazyky a jejich standardní knihovny?
z tohoto pohledu nazíráno, jsou jazyky, co si vedou líp a některý zase hůř ;)
No jasně, já jsem si prostě vzpomněl na svoje pocity, když jsem z Turbo Pascalu přecházel na TC(++). Jasně, spousta věcí byla horších (ty proklaté hlavičkové soubory a v něčem příliš low level atd.), ale zase to C mělo úspornější syntaxi a hlavně spoustu funkcí, které se v Turbo Pascalu musely dopisovat ručně. Jestli vám to vyhovuje, klidně pascalujte...
Citace od: Inkvizitor kdy 14. 05. 2017, 15:02:08
...Jestli vám to vyhovuje, klidně pascalujte...
Až zas tak fanda Pascalu nejsem, jenom v něm náhodou občas něco dělám.