[es] - Citanje slike sa web-a

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
193.251.169.*

Sajt: https://avramovic.info

+46 Profil

Citanje slike sa web-a

^{18.06.2005. u 23:41 - pre 229 meseci}

Ej ljudi, kako da ucitam sliq u TImage direktno sa web-a (odnosno prvo u neki stream [sta vec?] pa onda u TImage)?

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.250.eunet.yu.

+1 Profil

Re: Citanje slike sa web-a

^{19.06.2005. u 10:27 - pre 229 meseci}

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.

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info

+46 Profil

Re: Citanje slike sa web-a

^{20.06.2005. u 02:13 - pre 229 meseci}

hvala puno, osecam da ce ovo posluziti :) (nisam jos probao, ali verujem ti)
i ja koristim indy10

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Odgovor na temu