PDA

Просмотр полной версии : httpcli1 как загрузить jpeg ?


Student :)
21.03.2008, 00:07
var
ms: TMemoryStream;
jpeg: TJpegImage;

try
httpcli1.URL:= ('http://milo.ru/captcha.php?id='+captcha_id);
httpcli1.ProxyPort:= porta;
httpcli1.ProxyUsername:=logina;
httpcli1.ProxyPassword:=passa;
httpcli1.Get;
httpcli1.RcvdStream:=ms;
ms.Position := 0;
jpeg.LoadFromStream(ms);
Image1.Picture.Graphic := jpeg;
finally
jpeg.Free; ms.Free; httpcli1.Free;
end;


не выводиться картинка в Image :(
Помогите пожалуйста.

на сервере создаёться файл в формате jpg

~Real F@ck!~
21.03.2008, 00:11
не легче перекодировать формат в том же Paint'e ?

Student :)
21.03.2008, 00:13
httpcli это ICS

Pir4tt
21.03.2008, 20:32
var
jpeg: TGraphic;

{CUttED}

jpeg := TJpegImage.Create;
try
jpeg.LoadFromStream(ms);
Image1.Picture.Graphic := jpeg;
finally
jpeg.Free;
end;

Student :)
22.03.2008, 18:18
спасибо! щас попробуем :)

Student :)
23.03.2008, 02:31
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
jpeg: TGraphic;
begin
ms := TMemoryStream.Create;
jpeg := TJpegImage.Create;
try
httpcli1.URL:= 'http://forum.antichat.ru/image.php?u=32867&dateline=1202417398';
httpcli1.Get;
httpcli1.RcvdStream:=ms;
jpeg.LoadFromStream(ms);
Image1.Picture.Graphic := jpeg;
finally
end;
end;


делаю так выскакивает ошибка :(

Pir4tt
23.03.2008, 03:59
а зочем ты туда гиф суёшь?