New(PAddress);
New(PHeader);
//不需要该二句PAddress:=addr(F2);
//改为:PAddress:=F2.Memory;保存:
var Bitmap:TBitmap;
JPG:TJPEGImage;
Bitmap := TBitmap.Create;
F2.Position := ...//图象格式的位置,这儿是0
Bitmap .LoadFromStream(F2);
JPG:= TJPEGImage.Create;
JPG.Assign(Bitmap);
JPG.SaveToFile();
New(PHeader);
//不需要该二句PAddress:=addr(F2);
//改为:PAddress:=F2.Memory;保存:
var Bitmap:TBitmap;
JPG:TJPEGImage;
Bitmap := TBitmap.Create;
F2.Position := ...//图象格式的位置,这儿是0
Bitmap .LoadFromStream(F2);
JPG:= TJPEGImage.Create;
JPG.Assign(Bitmap);
JPG.SaveToFile();
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货