Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   httpcli1 как загрузить jpeg ? (https://forum.antichat.xyz/showthread.php?t=64923)

Student :) 21.03.2008 00:07
httpcli1 как загрузить jpeg ?
 
Код:
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
а зочем ты туда гиф суёшь?


Время: 12:44