请教各位Delphi高手,如何为每个客户端发送特定的文件,然后再把该文件传送回服务器的特定文件夹中?
谢谢!!!
谢谢!!!
解决方案 »
- listview 可以实现这种显示效果?或者可以有类似的控件?
- 从新安装系统后,quickreport预览和打印出来的字形变了?
- 高分求救:VFW视频采集问题,始终采集不到图像
- 大家好我想用Excel做报表,请问怎么把Query1控件里的数据到入Excel中——————在线等待!!!
- WebBrowser1自动电击按扭疑问
- 谁用过uJSON
- 用DBGRID输入数据,如何使一列直接取一个EDIT或是LABEL的字符?
- 请问,DELPHI上有PPC(POCKET PC)的SDK开发工具包吗?
- 【急:Delphi打开出错“无法定位程序输入点@Sysutils@CheckWin32Version$qqrii于动态链接库rtl60.bpl】
- 怎样在标题栏中显示系统当前日期?
- 有一小问题之delphi!!
- 请问哪里能找到一份完整的Indy控件组开发说明?最好是中文的!感谢!!!
procedure TForm1.Button2Click(Sender: TObject);
var
fStream : TFileStream;
beginif opendialog1.Execute then
with FClient do
begin
Connect;
while Connected do
begin
fStream := TFileStream.Create(opendialog1.FileName, fmOpenRead);
try
OpenWriteBuffer;
WriteStream(fStream);
CloseWriteBuffer;
finally
Disconnect;
fStream.Free;
end;
end;
end;end;接收
procedure TForm1.FServerExecute(AThread: TIdPeerThread);
var
s, sCommand : string;
fStream : TFileStream;
begin
with AThread.Connection do
try
fStream := TFileStream.Create('c:\abc.data', fmCreate);
try
ReadStream(fStream,-1,true);
finally
fStream.Free;
end;
end;
end;
// end;end;