Delphi 指针问题，请大家帮忙！

2001-07-12 04:04:15 225 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Plant Simulation数字孪生实战：从零搭建生产车间模型（附SimTalk脚本示例）本文详细介绍了如何使用Plant Simulation从零构建生产车间数字孪生模型，包括基础建模、SimTalk脚本编程、参数化设计和高级应用。通过实战示例展示动态逻辑控制、设备故障模拟等关键技术，帮助工程师快速掌握数字孪生技术在制造业中的应用。阅读详情

如果一个 FileStream 中含有 null 值，那如何把它复制到 Buffer 中后能够完整地取出来放到 String 变量中？？？我的情况：

strQ := 'E:\inetpub\picmanage\files\2.jpg';
stream1 := TFileStream.Create(strQ, fmOpenRead,fmShareDenyNone);
MemSize := stream1.Size;
inc(MemSize);
Buff := AllocMem(MemSize);
test := Stream1.Read(buff^,MemSize-1);
strQ := Buff;

运行后，test=20501, 跟2.jpg长度一致
Length(strQ)却等于4，因为2.jpg的第四位是null(00)
我想做到的是把 2.jpg 文件内容放到 String 中，请大家指教。

...全文

Flocking for Multi-Agent Dynamic Systems: Algorithms and Theory的理论简述和python仿真实现（附源码）经典论文Flocking for Multi-Agent Dynamic Systems: Algorithms and Theory的学习与编程仿真，提供源码阅读详情

neweb

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

neweb 2001-07-13

打赏
举报

Fairton(飞云)　:
你的代码我这样改了一下，成了, 可惜输出的图形还是能够被浏览器保存。为什么这么说呢？
因为我以前做 ASP 上传组件的时候，把上传的图形直接再输回浏览器时，浏览器能正常显示，但保存后，图片大小只有不到20字节，嘿嘿，可以保护图片不被客户端COPY（抓屏除外），这次为什么不行了呢？
begin
strQ := 'E:\inetpub\picmanage\files\2.jpg';
stream1:=TFileStream.Create(strQ, fmOpenRead);
Stream1.Seek(0,soFromBeginning);
MemSize := stream1.Size;
SetLength(StrQ,MemSize);I:=1;
While I<=MemSize Do
Begin
Stream1.Read(TmpChar,1);
StrQ[I]:=TmpChar;
Inc(I);
End;
Response.ContentType := 'image/*';
Response.Content := StrQ;
end;
airhorse(编程至尊宝)　:

你觉得guig(胖胖)改的可以吗？：
strQ := 'E:\inetpub\picmanage\files\2.jpg';
stream1 := TFileStream.Create(strQ, fmOpenRead,fmShareDenyNone);
MemSize := stream1.Size;
SetLength(strQ,MemSize);
Stream1.Read(strQ[1],MemSize); //×××××××××
~~~
始终是 [1] 吗？

CaiDaoLi()　：你的代码也许将来会有用，我已收起来了，谢谢！

guig 2001-07-12

打赏
举报

airhorse(编程至尊宝)　只差一点了，
这样：

strQ := 'E:\inetpub\picmanage\files\2.jpg';
stream1 := TFileStream.Create(strQ, fmOpenRead,fmShareDenyNone);
MemSize := stream1.Size;
SetLength(strQ,MemSize);
Stream1.Read(strQ[1],MemSize); //×××××××××

neweb 2001-07-12

打赏
举报

谢谢各位的热心帮助，我先试试。

CaiDaoLi 2001-07-12

打赏
举报

这样当然不行了，还是看我的代码吧·

{$R *.DFM}
function ComponentToString(Component: TComponent): string;
var
BinStream : TMemoryStream;
StrStream : TStringStream;
s : string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result := StrStream.DataString
finally
StrStream.Free
end
finally
BinStream.Free
end
end;

function StringToComponent(Value: string): TComponent;
var
StrStream : TStringStream;
BinStream : TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil)
finally
BinStream.Free
end
finally
StrStream.Free
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
img : TImage;
s:string;
begin
img := TImage.Create(nil);
img.Picture.LoadFromFile('d:\1.bmp');
s:=ComponentToString(img);
memo1.Text :=s;
img.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
img : TImage;
begin
try
img := TImage(StringToComponent(Memo1.Text));
Image1.Picture.Assign(img.Picture );

finally // wrap up
if img<>nil then img.Free;
end; // try/finally

end;
initialization
RegisterClass(TImage);
end.

Fairton 2001-07-12

打赏
举报

to airhorse：
Pascal的字符串结构是不能这样读的

:)

airhorse 2001-07-12

打赏
举报

strQ := 'E:\inetpub\picmanage\files\2.jpg';
stream1 := TFileStream.Create(strQ, fmOpenRead,fmShareDenyNone);
MemSize := stream1.Size;
inc(MemSize);
Stream1.Read(strQ,MemSize-1); //×××××××××

Fairton 2001-07-12

打赏
举报

Var
StrQ:String;
TmpChar:Char;
Stream1:TFileStream;
I,MemSize:Integer;
begin
strQ := 'E:\inetpub\picmanage\files\2.jpg';
stream1:=TFileStream.Create(strQ, fmOpenRead);
Stream1.Seek(0,soFromBeginning);
MemSize := stream1.Size;
SetLength(StrQ,MemSize);I:=0;
While Stream1.Position<Stream1.Size Do
Begin
Inc(I);
Stream1.Read(TmpChar,1);
StrQ[I]:=TmpChar;
End;
ShowMessage(IntTOSTr(MemSize)+' '+IntToSTr(I));
end;

Delphi 指针问题，请大家帮忙！

相关推荐