[ Nemanja Avramović @ 18.06.2005. 23:41 ] @
Ej ljudi, kako da ucitam sliq u TImage direktno sa web-a (odnosno prvo u neki stream [sta vec?] pa onda u TImage)?
[ morlic @ 19.06.2005. 10:27 ] @
Evo ti mog koda sa skidanje bilo kog fajla preko http-a ako imas njegov URL (koristim Indy 10):

Code:

Uses IdHTTP;
...
procedure IdHttpGetFileToStream(FileURL: string; Stream: TStream);
Var
  IdHttp: TIdHTTP;
begin
  IdHttp:= TIdHTTP.Create(nil);
  try
    IdHttp.Get(FileURL, Stream);
    Stream.Position:= 0;
  finally
    IdHttp.Free;
  end;
end;


Ako moras preko proxy-a, potrebno je jos promeniti kod. Dalje sa tokom radis sta zelis, upisujes u fajl na disku, direktno koristis:

Code:

...
Var
  Ms: TMemoryStream;
begin
  Ms:= TMemoryStream.Create;
  try
    IdHttpGetFileToStream('http://www.google.com/intl/sr_ALL/images/logo.gif',
      Ms);
    Ms.SaveToFile('c:\logo.gif');
  finally
    Ms.Free;
  end;
end;
...


Sada zavisi od podrske koju imas instaliranu za formate slika, sta mozes, sta ne mozes. Mozes recimo odmah bmp i jpeg slike.
[ Nemanja Avramović @ 20.06.2005. 02:13 ] @
hvala puno, osecam da ce ovo posluziti :) (nisam jos probao, ali verujem ti)
i ja koristim indy10