关于ClientSocket1通信的问题(急!!!!在线等待) (300分)

to wxpub:用字符串可以.
var
JpgBuff:string;
Stream:TmemoryStream;
Len:Integer;
begin
Len:=Length(strCondition);
Stream:= TMemoryStream.Create;
try
Stream.LoadFromFile(filename);
SetLength(JpgBuff,Stream.Size+Len);
Move(strCondition[1],JpgBuff[1],Len);
Move(Stream.Memory^,JpgBuff[Len+1],Stream.Size);
ClientSocket1.Socket.SendText(JpgBuffer);
finally
Stream.Free;
end;
end;

 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
823
SUNSTONE的Delphi笔记
S
顶部