从Web服务器上取一个gpg图片显示，jpeg error #52问题，呜呜

[Rukee]

代码如下，从Web服务器上取一个gpg图片显示，老是报，jpeg error #52问题是什么问题呀
AnsiString strStream;
TMemoryStream *memStream=new TMemoryStream();
TJPEGImage *jpegimg=new TJPEGImage();
strStream = IdHTTP1->Get("http://localhost/fc1_3.jpg");
try{
memStream->Write(&strStream, strStream.Length());
memStream->Seek(0,soFromBeginning);
jpegimg->LoadFromStream(memStream)；
Image1->Picture->Assign(jpegimg);
}
__finally
{
memStream->Free();
jpegimg->Free() ;
}

[Rukee]

已经搞定了，多谢大家帮忙！分享：
memStream->Write(&strStream, strStream.Length());
改为：
memStream->Write(strStream.c_str(), strStream.Length());

• 打赏
• 举报

回复 赞

[netying]

我也遇到这个错误，

• 打赏
• 举报

回复 赞

[xuv2002]

应该是你的memstream 读取错误，或是文件格式不正确
才会抱错吧

• 打赏
• 举报

回复 赞

[Rukee]

文件没问题，我用delphi做的测试通过，就是BC的不行
以下是Delphi的代码：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
strStream: String;
memStream: TMemoryStream;
jpegimg: TJPEGImage;
begin
strStream := idhttp1.Get('http://localhost/fc1_3.jpg');
memStream := TMemoryStream.Create;
jpegimg := TJPEGImage.Create;
try
memStream.Write(strStream[1], Length(strStream));
memStream.Position := 0;
showmessage(Inttostr(Length(strStream)));
jpegimg.LoadFromStream(memStream);
Image1.Picture.Assign(jpegimg);
finally
memStream.Free;
jpegimg.Free;
end;
end;

• 打赏
• 举报

回复 赞