请大家帮帮忙啊,最好能给个例子!
解决方案 »
- dxDbgrid控件根据内容显示颜色
- 获取控件的句柄后,sendmessage鼠标点击,为什么无效呢?
- 一简单平面游戏,用image作射击目标,想请问怎么把那射击目标变成不是四的
- 用Delphi如何进行并口通信?
- 怎样使dbgrid随form大小变化而变化,up有分!!!欢迎捧场!!!(在先等待)
- 如何得到一个隐藏窗体的句柄,并改变该窗体的名称???
- 关于Delphi中动态数组的问题.:)
- 在ACCESS数据库中的一个表的一个字段,为什么会只允许输入英文不允许输入中文,怎么办呢?
- 问一个似乎非常难的问题
- 有两个Form,Form1能够调用Form2的参数,而Form2能够调用Form1的参数,该怎么作?
- 存储一个文件到SQL2000会有"invalid blob length"错误啊?
- 这样为什么不行?(不知道是SQL语句的问题还是什么)
ClientSocket: TCustomIpClient);
var
sTemp:string;
bufRecv:Pointer;
iRecvLength:Longint;
fsRecv:TFileStream;
begin
fsRecv:=TFileStream.Create('c:\\my.jpg',fmCreate);
sTemp:=ClientSocket.Receiveln;
showmessage(sTemp);
GetMem(bufRecv,200000);
iRecvLength:=StrtoInt(sTemp);
try
ClientSocket.ReceiveBuf(bufRecv^,iRecvLength);
fsRecv.WriteBuffer(bufRecv^,iRecvLength);
finally
FreeMem(bufRecv,200000);
end;
showmessage('finish');
end;
我这一个是可以的,但是上传文件的大小是正确的,就是无法读出的,都是乱码