Code: 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
Code: var jpeg: TGraphic; {CUttED} jpeg := TJpegImage.Create; try jpeg.LoadFromStream(ms); Image1.Picture.Graphic := jpeg; finally jpeg.Free; end;
Code: procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; jpeg: TGraphic; begin ms := TMemoryStream.Create; jpeg := TJpegImage.Create; try httpcli1.URL:= '/image.php?u=32867&dateline=1202417398'; httpcli1.Get; httpcli1.RcvdStream:=ms; jpeg.LoadFromStream(ms); Image1.Picture.Graphic := jpeg; finally end; end; делаю так выскакивает ошибка