复制图片过程

CopyBmpFromXpress((control1 as TImage).Picture.Bitmap,picfilename);


procedure CopyBmpFromXpress(DestImage: TBitmap;strSourceFilePath: string);
var
  MemStream:TMemoryStream;
  pdata:PChar;
  SourceXpress:TXpress;
begin
  if not  FileExists(strSourceFilePath) then
    exit;
  SourceXpress:=TXpress.Create(nil);
  SourceXpress.FileName:=strSourceFilePath;

 //DestImage := TBitmap.Create;
  MemStream := TMemoryStream.Create;
  SourceXpress.ColorDepth(24,0,0);
  SourceXpress.SaveFileType := FT_BMP;
  SourceXpress.SaveToBuffer := True;
  SourceXpress.SaveFile;;
  pdata := GlobalLock(SourceXpress.SaveBufferHandle);
  MemStream.WriteBuffer(PChar(pdata)^,GlobalSize(SourceXpress.SaveBufferHandle));
  GlobalUnlock(SourceXpress.SaveBufferHandle);
  SourceXpress.DeleteSaveBuffer;
  MemStream.Position := 0;
  DestImage.LoadFromStream(MemStream);
  MemStream.Free;

  SourceXpress.SaveToBuffer := False;
  SourceXpress.Free;
end;