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

[neweb]

如果一个 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 中，请大家指教。

[Fairton]

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;

[airhorse]

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

[Fairton]

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

:)

[CaiDaoLi]

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

{$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.

[neweb]

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

[guig]

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]

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()　：你的代码也许将来会有用，我已收起来了，谢谢！