16,748
社区成员
发帖
与我相关
我的任务
分享
imagestream := TMemoryStream.Create();
jpg:=TJpegImage.Create;
idhttp1.Get(strContent,imagestream);
imagestream.Position:=0;
jpg.LoadFromStream(imagestream);//这里载入的如果不是一个jpg图片就会出错,如何先判断呢?
image1.Picture.Assign(jpg);
function CheckPicFormat(MS:TMemoryStream): String;
var
Bmf : TBitmapFileHeader ;
begin
Result := 'Err';
if Assigned(MS) then
begin
MS.ReadBuffer(Bmf, sizeof(Bmf));
if Bmf.bfType <> $4D42 then Result := 'JPEG' else Result := 'BMP';
end;
end;