Lazarus 3.0 (2023.12.21.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Válasz: Kép letöltése kódból 2013 febr. 13 12:06 #1212

  • brandyman
  • brandyman profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 40
  • Köszönetek: 1
Valóban, ezt is működik! Köszi a tippet!

Válasz: Kép letöltése kódból 2013 febr. 12 16:50 #1211

  • ejbenjaro
  • ejbenjaro profilkép
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 66
  • Köszönetek: 4
Lehet Synapse nélkül is. A Free Pascal része az fphttpclient unit (azt hiszem az fcl-web része). Ezt felhasználva ennyi az egész:
program download;
 
{$mode objfpc}{$H+}
 
uses Classes, SysUtils, fphttpclient;
 
begin
  With TFPHttpClient.Create(Nil) do
  begin
    try
      Get('http://lazarus.freepascal.hu/media/kunena/avatars/resized/size144/nophoto.jpg','nophoto.jpg');
    finally
      Free;
    end;
  end;
end.

Ha szükséges több infó a unitról, akkor Lazarusban írd be a uses után, majd nyomd le a CTRL (kontrol) billentyűt és kattints a unit nevére. A lazarus megnyitja neked és böngészheted a kódját. A Get metódus például több verzióban is benne van.
Mottó:
"Az ember sokszor más mint aminek látszik. De ritkán jobb..."
--
Gép : Asus P5G41T-M LX, Intel Celeron DC E3400, 4GB DDR3, 320GB SATA2, minden más integrált.
OS : Ubuntu 14.04
--
web: lassuviz.blogspot.hu/
Megköszönték: brandyman

Válasz: Kép letöltése kódból 2013 febr. 12 13:31 #1210

  • brandyman
  • brandyman profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 40
  • Köszönetek: 1
Megoldva!

Szükséges a "Synapse" unit letöltése,
(synapse.ararat.cz/doku.php/download)
valamint az alábbi kód pld.

HttpClient:= THTTPSend.Create;
If HttpClient.HTTPMethod('GET', 'http://....../kep.jpg') then
HttpClient.Document.SaveToFile('kep.jpg');
HttpClient.Free;

A USES szekcióban a HttpSend kiegészítés szükséges!

Kép letöltése kódból 2013 febr. 11 20:18 #1209

  • brandyman
  • brandyman profilkép Témaindító
  • Haladó forumozó
  • Haladó forumozó
  • Hozzászólások: 40
  • Köszönetek: 1
Sziasztok!

Van egy weboldal, ahonnan egy normál linkkel elérhető JPG képet szeretnék letölteni. Legyen a webcím pld. egy STRING változóban, és a képet adott könyvtárba szeretném lementeni.

A Delphi tud valami TDownloadURL funkciót, de eddig nemigen tudtam vele mit kezdeni Lazarusban.

Itt is van pár megoldás, igaz elég hosszadalmasak, és Delphi-re vannak, de hátha ötletet ad...

www.swissdelphicenter.ch/torry/showcode.php?id=412

Előre is köszi a tippeket!

  • Oldal:
  • 1