S
smokingroom
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
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;