const
FileName: string = 'c:\a.bmp';
var
flstrmTemp: TFileStream;
strTemp: string;
begin
flstrmTemp := TFileStream.Create(FileName, fmOpenRead);
SetLength(strTemp, flstrmTemp.Size);
flstrmTemp.Read(strTemp[1], flstrmTemp.Size);
flstrmTemp.Free;
end;
请问高手,以上代码中,strtemp字符串中的内容已经是二进制的代码了,但它是字符串类型的, 如何将字符串中的内容取出并传递给一个二进制流变量啊,如:pbyte????????
FileName: string = 'c:\a.bmp';
var
flstrmTemp: TFileStream;
strTemp: string;
begin
flstrmTemp := TFileStream.Create(FileName, fmOpenRead);
SetLength(strTemp, flstrmTemp.Size);
flstrmTemp.Read(strTemp[1], flstrmTemp.Size);
flstrmTemp.Free;
end;
请问高手,以上代码中,strtemp字符串中的内容已经是二进制的代码了,但它是字符串类型的, 如何将字符串中的内容取出并传递给一个二进制流变量啊,如:pbyte????????
解决方案 »
- 在主线程A 建立一个 线程B,线程B需要调用到 ShowMessage(),MessageDlg()等函数,是可以调用,但是显示不出消息窗口。如何办?
- 关于ExpressNavBar和ExpressQuantumGrid的安装
- 事件为什么不触发呀?急(在线等)
- delphi6中实现连续走纸任意行数打印
- 不知道哪时能弄到DHCP服务的控件??
- 简单的ADO问题. up 有分.
- 有没有好点的DELPHI书给介绍一个,太难不行
- 如何解决TADODataSet的报错“未指定的错误”。
- 我用的DBISAM控件做的程序出问题?!:-(
- 求dxdbtreeview 1.2 for d5
- 如何在Delphi中调用Word文档?
- 100分询问DELPHI数据库制作方法
为什么这段时间里总是没人能给我解答啊?!!!
type
pByte = array of Byte;
var
img:pByte;
allocmem(img,flstrmTemp.Size);
flstrmTemp.Read(img&, flstrmTemp.Size);大概这意思了,你看行吗?
img:pByte;
flstrmTemp := TFileStream.Create(gifname, fmOpenRead);
img:=AllocMem(flstrmTemp.Size);
flstrmTemp.Read(img&, flstrmTemp.Size);
编译上面的代码时提示:‘&’为非法字符,请指教!我们的想法是想将gifname文件以二进制的方式写入到img变量中!