我朋友用VC写,我用delphi,现在VC把一张bmp的图放在内存传入(我写dll),请问delphi如何读取内存中的bmp图,并放在Timage中?
我们合作写一个程序,我朋友是用VC写,我用delphi,我主要是写dll。现在我朋友用VC把一张bmp的图放在内存传入给我的delphi的DLL程序使用,请问delphi如何读取内存中的bmp图,并放在Timage中?
[解决办法]
贴个带色的
- Delphi(Pascal) code
procedure BmpHexToBmp(const HexStr: string;bmp: TBitmap); var Stream: TMemoryStream; begin if bmp = nil then raise Exception.Create('位图不能为空'); Stream := TMemoryStream.Create; Stream.SetSize(Length(HexStr)div 2); Classes.HexToBin(Pchar(HexStr),Pchar(Integer(Stream.Memory)),Stream.Size); Stream.Seek(0,soFromBeginning); bmp.LoadFromStream(Stream); Stream.Free; end;