Ej ljudi, kako da ucitam sliq u TImage direktno sa web-a (odnosno prvo u neki stream [sta vec?] pa onda u TImage)?
Citanje slike sa web-a
Zaključano
Zakačeno
Evo ti mog koda sa skidanje bilo kog fajla preko http-a ako imas njegov URL (koristim Indy 10):
Ako moras preko proxy-a, potrebno je jos promeniti kod. Dalje sa tokom radis sta zelis, upisujes u fajl na disku, direktno koristis:
Sada zavisi od podrske koju imas instaliranu za formate slika, sta mozes, sta ne mozes. Mozes recimo odmah bmp i jpeg slike.
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;
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;
...
...
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.
hvala puno, osecam da ce ovo posluziti :) (nisam jos probao, ali verujem ti)
i ja koristim indy10
i ja koristim indy10