求教？delphi下怎么实现网络文件传输？-CSDN论坛

求教？delphi下怎么实现网络文件传输？

Delphi > VCL组件开发及应用

收藏回复

[问题点数：100分，结帖人istrue]

⋅恳求高手远程帮解解决数据库连接配置问题 ⋅在线提问:关于有些多语言网站 ⋅决定做一个mysql的远程备份恢复工具，希望大家支持、指点！ 更多帖子 关注私信空间博客 istrue 等级 本版专家分：50 结帖率 97.22%: 我想在在delphi下实现文件传输，不想用ftp等，
想用indy中的idtcpclient与idtcpserver实现。
我的实际难题为怎么把一个字符串与一个文件打包一起传送给另一个端？？？

2004-06-07 17:21:50

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅delphi 中如何将gbk转换成unicode并保存下来？ ⋅大家有谁有过 oracle的convert()将gbk转换成unicode的？ ⋅大家谁知道delphi各个版本的发布时间啊，顶者有分 更多帖子 关注私信空间博客 mbzdh 等级 本版专家分：1368: 用idtcpclient和idtcpserver的sendstream就可以了，

你把要发送的文件和字符串打包在某个流里就可以了，

2004-06-07 18:01:54

点赞只看TA 引用举报 #1得分 35

⋅沉痛悼念伴水 ⋅悲痛悼念LYSoft ⋅饭桶，YYgroup让你赶紧回来YY了！ 更多帖子 关注私信空间博客 aiirii 等级 本版专家分：181754 勋章 进士 2004年总版技术专家分年内排行榜第六 银牌 2004年4月总版技术专家分月排行榜第二 红花 2006年1月 Delphi大版内专家分月排行榜第一 2005年12月 Delphi大版内专家分月排行榜第一 2005年11月 Delphi大版内专家分月排行榜第一 2005年10月 Delphi大版内专家分月排行榜第一 2005年6月 Delphi大版内专家分月排行榜第一 2004年10月 Delphi大版内专家分月排行榜第一 2004年9月 Delphi大版内专家分月排行榜第一 2004年8月 Delphi大版内专家分月排行榜第一 2004年7月 Delphi大版内专家分月排行榜第一 2004年6月 Delphi大版内专家分月排行榜第一 2004年5月 Delphi大版内专家分月排行榜第一 2004年4月 Delphi大版内专家分月排行榜第一 2004年3月 Delphi大版内专家分月排行榜第一 2003年12月 Delphi大版内专家分月排行榜第一 2003年11月 Delphi大版内专家分月排行榜第一 黄花 2006年4月 Delphi大版内专家分月排行榜第二 2005年5月 Delphi大版内专家分月排行榜第二 2005年4月 Delphi大版内专家分月排行榜第二 2005年3月 Delphi大版内专家分月排行榜第二 2005年2月 Delphi大版内专家分月排行榜第二 2004年12月 Delphi大版内专家分月排行榜第二 2004年2月 Delphi大版内专家分月排行榜第二: ...send a file from a TServerSocket to a TClientSocket?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    btnTestSockets: TButton;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure btnTestSocketsClick(Sender: TObject);
  private
    FStream: TFileStream;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  iLen: Integer;
  Bfr: Pointer;
begin
  iLen := Socket.ReceiveLength;
  GetMem(Bfr, iLen);
  try
    Socket.ReceiveBuf(Bfr^, iLen);
    FStream.Write(Bfr^, iLen);
  finally
    FreeMem(Bfr);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(FStream) then
  begin
    FStream.Free;
    FStream := nil;
  end;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Assigned(FStream) then
  begin
    FStream.Free;
    FStream := nil;
  end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  FStream := TFileStream.Create('c:\temp\test.stream.html', fmCreate or fmShareDenyWrite);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareDenyWrite));
end;

procedure TForm1.btnTestSocketsClick(Sender: TObject);
begin
  ServerSocket1.Active := True;
  ClientSocket1.Active := True;
end;

end.

2004-06-07 19:15:58

点赞只看TA 引用举报 #2得分 48

⋅恳求高手远程帮解解决数据库连接配置问题 ⋅在线提问:关于有些多语言网站 ⋅决定做一个mysql的远程备份恢复工具，希望大家支持、指点！ 更多帖子 关注私信空间博客 istrue 等级 本版专家分：50: 感谢以上mbzdh与aiirii两位兄弟！
我刚入门不久，看了以上回复，还不能解决，请再多多赐教！
比方以下数据结构在：
type data=record
   id:smallint;
   mess:string[80];
   filename:string[40];//里面存放的为要交换的文件名（包括路径）
end;
帮忙写一个打包发送与接收分解的过程。
我会尽快结贴！

先谢为敬！！！

2004-06-08 08:40:27

点赞只看TA 引用举报 #3得分 0

⋅恳求高手远程帮解解决数据库连接配置问题 ⋅在线提问:关于有些多语言网站 ⋅决定做一个mysql的远程备份恢复工具，希望大家支持、指点！ 更多帖子 关注私信空间博客 istrue 等级 本版专家分：50: 请各位帮手看看以下代码哪里有问题（导致连接中断）？

function send_data(data_send:in_data):boolean;
var
  this_connect:connect;
  stream:TMemoryStream;
  fs:tfilestream;
begin
  this_connect:=find_id(data_send.con_id);
  if this_connect.thread_id>0 then
  begin
{
type
data_record=record
   con_code:smallint;//操作码
   con_id:integer;//发送目的id号
   mess_len:integer;//消息长度
   file_size:int64;//文件长度
   name_size:smallint;//文件名的长度
   filename:string;//文件名
   mess:string;//消息体，文本格式
end;
}
    stream:=TMemoryStream.Create;
    stream.WriteBuffer(data_send.con_code,sizeof(data_send.con_code));
    stream.WriteBuffer(data_send.con_id,sizeof(data_send.con_id));

    data_send.mess_len:=length(data_send.mess);
    stream.WriteBuffer(data_send.mess_len,sizeof(data_send.mess_len));
    stream.WriteBuffer(data_send.mess[1],data_send.mess_len);

    if fileexists(data_send.filename) then
    begin
      data_send.name_size:=length(data_send.filename);
      fs:=tfilestream.Create(data_send.filename,fmopenread);
      data_send.file_size:=fs.Size;

      stream.WriteBuffer(data_send.file_size,sizeof(data_send.file_size));//发送文件大小
      stream.WriteBuffer(data_send.name_size,sizeof(data_send.name_size));//发送文件名大小
      stream.WriteBuffer(data_send.filename[1],data_send.name_size);//发送文件名
      stream.WriteBuffer(fs,data_send.file_size);//发送文件体
      fs.Free;
    end
    else
    begin
      data_send.file_size:=0;
      stream.WriteBuffer(data_send.file_size,sizeof(data_send.file_size));//发送文件大小0
    end;

    this_connect.objects.Connection.WriteStream(stream,true,true);
    stream.Free;
    result:=true;
  end
  else
    result:=false;
end;

2004-06-10 08:41:16

点赞只看TA 引用举报 #4得分 0

⋅回老家看看，感觉不错 ⋅高分求datagrid分类显示问题！ ⋅可能确实是棘手问题，再开一贴，凑满200分 更多帖子 关注私信空间博客 juliens 等级 本版专家分：11775 勋章 黄花 2004年6月 Delphi大版内专家分月排行榜第二 蓝花 2004年7月 Delphi大版内专家分月排行榜第三: 关注

2004-06-10 08:55:21

点赞只看TA 引用举报 #5得分 2

⋅郁闷！ ⋅关于scrollbox控件的问题。。。。。在线等急。。。。。急。。。。急 ⋅请问怎么实现单击LISTVIEW中某一子项并能得到。。 更多帖子 关注私信空间博客 hejunwu201 等级 本版专家分：44: 学习！

2004-06-10 09:12:34

点赞只看TA 引用举报 #6得分 2

⋅perl 读取机器信息,如CPU,内存,机器名,IP等信息? 急....... ⋅看来现在招Delphi的公司又多了? ⋅对象互操作，怎么实现？ 更多帖子 关注私信空间博客 Sunniness 等级 本版专家分：740: 学习!

2004-06-10 09:18:46

点赞只看TA 引用举报 #7得分 2

⋅散分+拉票帖。5秒钟一票。投了就送分。斑竹请高抬贵手！(5) ⋅散分+拉票帖。5秒钟一票。投了就送分。斑竹请高抬贵手！(4) ⋅散分+拉票帖。5秒钟一票。投了就送分。斑竹请高抬贵手！(4) 更多帖子 关注私信空间博客 huluobowangmeng 等级 本版专家分：735: 冲顶！！

2004-06-10 09:40:25

点赞只看TA 引用举报 #8得分 2

⋅【提问】是谁删了我的贴子？？？你不必再删我这个贴子，有了答案我自己会转走。 ⋅关于双层iframe高度自适应的问题 ⋅奇怪問題：加了<form>后不显示返回值，去掉<form>后一切正常 更多帖子 关注私信空间博客 cronuz 等级 本版专家分：11848: REC_SIZE = SizeOf(data_record);
stream.WriteBuffer(data_send, REC_SIZE);

(注：一個数据结构record、一斉装入如何？)

2004-06-10 11:23:19

点赞只看TA 引用举报 #9得分 5

⋅access的sql语句怎么这么难？ ⋅求救：发现最难的数据库竟然是access。。。 ⋅急求一条sql语句，修改重复记录，谢谢了！ 更多帖子 关注私信空间博客 cjf1009 等级 本版专家分：3289: mark

2004-06-10 14:05:01

点赞只看TA 引用举报 #10得分 2

1 2

收起

收藏回复

istrue

等级：

关注私信 TA的帖子

如何使用idhttp上传文件: 标题: 如何使用idhttp上传文件关键字: 如何使用idhttp上传文件 ...高分求教如何使用idhttp上传文件，在线等 -----------------------------------------------------------------------------

delphi uniDac: Delphi 2010安装及使用UniDAC 4.0 UniDAC是一个功能强大的非可视化跨数据库的数据访问组件，可用于Delphi，Delphi for .NET，C++Builder，and Lazarus (Free Pascal)。它提供了对流行数据库服务器的统一访问，像...

数据转换为json格式，用AES加密后取其byte存储为文件下载: 现在在做一个功能，在html页面有一个按钮点击后会把该页面的text和tabel里的数据转换为json格式，用AES加密后取其byte存储为文件下载，请问这应该这么写，新人求教

CSDN回帖得分大全（近两年）: √vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC ... [VC/MFC 界面] 40 chencheng8095 05-23 00:2911 xianglitian06-10 11:51管理√CFileFind::FindFile 支持通配符么？ [VC/MFC 基础类] 100 wysbk002 05-22

链接：MSDN UserNet等: Windows XP左边的导航工具面版就是采用这种风格，采用这种风格的应用程序也越来越多，比如各种杀毒软件，可能delphi提供的vcl组件可以简化这种操作，对于这种“傻瓜式”的实现我不喜欢。我还是想用C++，实现这种界面...

Microsoft .Net Remoting系列专题之一:.Net Remoting基础篇: 从微软的产品角度来看，可以说Remoting就是DCOM的一种升级，它改善了很多功能，并极好的融合到.Net平台下。Microsoft® .NET Remoting 提供了一种允许对象通过应用程序域与另一对象进行交互的框架。这也正是我们使用...

WEB开发文档2 总结: http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...

Com Introduction: Com Introduction(wang hailong)1．...我不明白，人们为什么要把一些很明了的事情，弄得玄之又璇，而对一些真正的杰出特性却避而不谈？...刚开始接触到COM的概念，我虚心求教，从各方面得知了如下的COM神话：

数据库帖子收集: 这样的数据列表在存储过程中应该怎么样选择得到？请问造成SQL2000服务不能启动的原因有哪些？ sql server中有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀！...

我在CSDN参与的3000个帖子: 今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！...

MS-SQL Server 基础类 - SQL语句

vb/vb.net原创文章精粹（5）: [url=http://www.vbbaike.com/show.asp?id=101470]VB 制作安装程序时，如何让安装时提示的界面都是中文？[/url] [url=http://www.vbbaike.com/show.asp?id=101469]帮忙看看程序----提示“多步OLE DB产生......

vb/vb.net开发精粹(5): VB 制作安装程序时，如何让安装时提示的界面都是中文？帮忙看看程序----提示“多步OLE DB产生错误,请检查每个OLE DB状态值,没有工作被完成” 谁能帮我看看这段VBS代码有谁研究过MDIActiveX这个把封装DLL生成...

Makefile: 概述——什么是makefile？或许很多Win odws的程序员都不知道这个东西，因为那些 Windows的IDE都为你做了这个工作，但我觉得要作一个好的和...特别在Unix下的软件编译，你就不能不自己写makefile了，会不会写ma

网址: Soft ... 国内破解论坛 ★万花筒极酷大论坛★中国狂热破解联盟论坛★中国破解联盟论坛★天天精品论坛★汉化新世纪论坛...★Delphi园地★Delphi大富翁★Delphi盒子★Dingl.com★itpub论坛★JavaWorld技术论坛★JAVA中文

从Win32程序中的主函数中获取命令行参数 _twinmain: 在标准C或者Win32控制台程序的main函数中，它们都有两个参数："argc" 和 "argv"，如下所示： int main(int argc, char * argv[]) ...... 这些参数帮助我们为程序传入命令行参数。"argc"为命令行参

VC++中可能遇到的问题: T 如何用程序控制电源管理设置 Q 我们知道在电源选项属性里面可以设置关闭监视器 1分钟之后，...,从不关闭硬盘 1分钟之后，...,从不待机时间 1分钟之后，...,从不请问这些设置我怎么用程序来实现比如我...

API Hook完全手册: 注：本文是根据我两年前写的一个系统行为监测程序写成（参考了一些书籍和文章）。最近在论坛上看到有不少人在问关于API Hook的问题，便写成此文，希望能对朋友们在写API Hook代码的时候能够有所帮助。...

VC++中可能遇到的问题收藏: VC++中可能遇到的问题收藏 | 旧一篇: 在VC中动态加载ODBC时的一些小细节 function StorePage(){d=document;t=d.selection?(d.selection.type!=None?d.selection.createRange().text:):(d.getSelection?...

SOCKET: 1） IPv4套接字地址结构 IPv4套接字地址结构通常也称为“网际套接字地址结构”，以sockaddr_in命名，定义在头文件中。 struct in_addr{ in_addr_t s_addr; //32bits IPv4 address,...

windows服务器应对高并发和DDOS攻击: windows系统本身就有很多机制可以用来提高性能和安全，其中有不少可以用来应对高并发请求和DDOS攻击的情况。 ... 通过以下配置可以改善windows服务器性能： ... 1、TCP连接延迟等待时间 TcpTim

Win32 & .Net Q&A 200509: CSDN 讨论总结系列：Jiangsheng的CSDN Digest (Dec 2005)(http://blog.csdn.net/jiangsheng/archive/2005/12/24/561501.aspx) Jiangsheng的CSDN Digest (Oct 2005)...

软件行业资讯: 为什么只有设计师才能发明流行的新语言先回顾一下知名编程语言的作者和创造时间： Fortran 语言，50年代，IBM 研究员； Lisp 语言，50年代，MIT 的教授和学生； C语言，70年代，贝尔实验室的两位研究员；...

以太坊ETH挖矿图文教程2.0: 本教程页数不多，7页，主要描述如何使用以太坊ETH挖矿，图文并茂的展示和流程细节的体现，基本看了一遍就肯定能够学会了。

python大作业--爬虫（完美应付大作业）.zip: python大作业分享--30多个项目任你选（由于上传大小限制分多个文件上传。爬虫：https://download.csdn.net/download/weixin_43960044/12533382小游戏：https://download.csdn.net/download/weixin_43960044/12533379），应付大作业完全没问题。内涵30多个项目，随意挑选。爬虫（爬抖音视频、下载B站视频、怕天气预报等）小游戏（五子棋、坦克大战、贪吃蛇、拼图等）。

LABVIEW入门与实战开发100例.pdf: LABVIEW入门与实战开发100例，从基础到入门的基本实例。

指针才是C的精髓-4.3.C语言专题第3部分: 本课程的主要内容是指针，用10节课五六个小时，从10个角度讲了指针的用法和相关知识点。其中有很多都是C程序员难以理解或者难以应用到实践编程中的知识点，也是嵌入式程序员面试笔试时经常遇到的题目。本课程的目标是让大家深入理解指针的各种使用技巧。本课程为《C语言高级专题》的第三部分，本专题适合有一定C语言基础（至少要学过C语言，掌握gcc开发环境，会在linux命令行下编写、编译、运行、调试简单C语言程序）的同学；如果是零基础的同学，请先看我的《嵌入式工程师养成计划系列 — 朱老师带你零基础学Linux》和《嵌入式linux C语言完全学习》（光盘里的名字叫《嵌入式linux C编程基础》）

知网情感词典（HOWNET）: 该词典主要分为中文和英文两部分，共包含如下数据：中文正面评价词语3730个、中文负面评价词语3116个、中文正面情感词语836个、中文负面情感词语1254个；英文正面评价词语3594个、英文正面评价词语3563个、英文正面情感词语769个、英文负面情感词语1011个。情感分析资源大全：http://blog.csdn.net/qq280929090/article/details/70838025

数学建模30种基本模型分析: 文中把历年来的常见的数学建模比赛模型总结在一起，便于大家的学习，总共有30中模型，每一种模型都会有详细的分析，议论文的形式展现出来......

Python 3.9 安装包: Python是一种编程语言，可让您快速工作无论您是编程新手还是经验丰富的开发人，都可以轻松学习和使用Python

相关热词 c# 自行处理dpi 运行c#上的.exe文件 c#控制间隔时间 c#局部透明 c#手机图片左右滑动特效 c# 组合类表框 c# 数组过滤 c# 重载和重写实例 c#.net制作窗口 c# 括号内正则表达式