Lazarus - stažení souboru

[Pavel.Vavrečka]

Zdravím.
Jak stahnout nějaky soubor s netu, když ardesa začina  HTTPS?

[Reklama]

[aaa158]

Uplne tak isto ako http?

Kód: [Vybrat]

wget -O /tmp/index.html https://www.google.com
...
2017-05-12 09:31:11 (282 KB/s) - '/tmp/index.html' saved [11607]


[Pavel.Vavrečka]

Si přehled to první slovičko Lazarus 

[daks]

Nemám vyzkoušeno, ale pomocí Synapse http://wiki.freepascal.org/Synapse#From_an_HTTP_server by to snad šlo, nebo možná curlpas http://curlpas.sourceforge.net/curlpas

[daks]

link na Synapse https je správně http://wiki.freepascal.org/Synapse#From_an_HTTPS_server

[Reklama]

[bríbl]

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)

[daks]

Nebo zjednodušeně nějak takto:

Kód: [Vybrat]

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

[.]

pro wget: ...

LAZARUS

[Inkvizitor]

Nebo zjednodušeně nějak takto:

Kód: [Vybrat]

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í.

[daks]

Takto nějak si programátor v Pascalu začátkem 90. let jistě představoval zářnou budoucnost programování.

chudák...

[Inkvizitor]

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?

[daks]

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ůř

[Inkvizitor]

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...

[daks]

...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.