草庐IT

关于indy10：使用Delphi Indy 10进行UDP文件传输

codeneng 2023-03-28 原文

UDP File Transfer Using Delphi Indy 10

我正在使用 Delphi Xe-3 indy 10 进行 udp 文件传输。我以小块的形式传递文件，在传输更大的文件和文本文件以外的文件时遇到问题。

在客户端调试时文件的大小保存错误，我无法找出原因。下面是客户端和服务器代码，客户端发送文件到服务器。
(我使用 udp 是因为我正在研究 Reliable udp。)

客户端代码(发送函数)中提到了问题。

服务器：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
procedure TForm2.serverUDPRead(AThread: TIdUDPListenerThread;
  AData: array of Byte; ABinding: TIdSocketHandle);
  var

  str , len :string;
  size : word;
  index : word;

begin

   setlength(b,length(Adata));
   move(Adata[0],b[0],length(Adata));              // convert array of byte to tidbytes

   index:=0;
   setlength(Ext,b[index]);                      // get filename length
   setlength(File_data , b[index+1]);             // get file length
   index:= index+2;
   move(b[index],Ext[1],length(Ext)*2);           // copy filename
   index:= index+length(Ext)*2;
   move(b[index],File_data[0],length(File_data));      // copy file

   save.Visible:= true;
   //progressbar1.Visible:= true;
   progressbar1.Position
   memo1.Lines.Add('Receving file...->');

end;

procedure TForm2.SaveClick(Sender: TObject);
var
buttonSelected : Integer;
content:integer;
begin

savedialog1.FileName := Ext;            // save file name
if savedialog1.Execute then            // save dialog opens
   try
    if FileExists(SaveDialog1.FileName) then
     begin
     if MessageDlg('Do you want to overwrite the existing file ?',
     TMsgDlgType.mtConfirmation,mbYesNo,0) = IDNO then
       begin
         exit;
       end
     end;

    Strm:=TFileStream.Create(Ext,fmCreate);
    Strm.Position:=0;
    //progressbar1.Value:= 100*length(File_data)/content;                                                // set position to start
    WriteTIdBytesToStream (Strm,File_data,length(File_data),0);      // write bytes data to stream
    memo1.Lines.Add('File transmission complete...');
    finally
    strm.Free;
    save.Visible := false;
    progressbar1.Visible := false;
    end;

end;

客户：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
procedure TForm1.LoadClick(Sender: TObject);
begin

//openDialog1.InitialDir := GetCurrentDir;

if openDialog1.Execute then

begin
Edit1.Text     := OpenDialog1.FileName;
memo1.Lines.Add (Opendialog1.FileName);

Filename := ExtractFileName (Opendialog1.FileName);
Mem := TFileStream.Create(OpenDialog1.FileName,fmOpenRead); //connects the client

end;

{finally
opendialog1.Free;
end;
    }

end;

procedure TForm1.SendClick(Sender: TObject);
var
size : word;
index : word;
begin
index := 0;
 try
   Posi:=0;
   While Posi<Mem.Size do
   begin
   Len:=1024;
   if Mem.Size-Posi<1024 then
   begin
   Len:=Mem.Size-Posi;
   end;
   setlength(chunk,len);
   ReadTIdBytesFromStream(Mem,chunk,Len);

  size := length(chunk) + length(Filename)*2 + 2;  // it gets right sizes here ,
                                                   //chunk size is also correct
  setlength(File_data,Size);
  File_data[index] := length(Filename);
  index:= index+1;
  File_data[index]:= length(chunk);// its saved here ,value is reduced.
  index:= index+1;
  move(Filename[1],File_data[index],length(Filename)*2);
  index:= index+length(Filename)*2;
  move(chunk[0],file_data[index],length(chunk));

  client.SendBuffer('127.0.0.1',6002,File_data);
  Inc(Posi,Len);
  end;

  finally
  Mem.Free;
  Edit1.Text:='';
  Filename:='';
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
client.Bindings.Add.Port:= 0;
client.Active  := true;
end;

end.

  • 如果您没有充分的理由使用 UDP，那么您应该几乎总是使用 TCP。不保证接收 UDP 数据包，并且不以任何特定顺序接收。
  • 我说我正在努力构建可靠的 udp 协议。这是我需要做的一个项目。
  • 如果你想构建一个可靠的 UDP 协议，你将不得不做更多的工作。第一个问题是数据包排序。 TCP 保证首先传送数据包 1，而 UDP 不保证。 UDP 确实会重新传输pacekts 等等......您在此处显示的代码根本不可靠。也许您需要在尝试编写任何代码之前先研究"可靠的 UDP"？
  • 不，我这样做是为了聊天。现在我正在通过那个寻找文件传输..所以尝试了文件传输代码示例。
  • 但是 Rudp 是为了可靠性，而不是为了将文件分解成块，或者我应该在 Rudp 中实现那个东西吗？
  • 是的，我以前听说过那个东西(对文件传输不太了解)但是从零开始的文件流没有告诉他们开始位置吗？它以与源文件相同的模式复制(直到为我复制的级别)。
  • 我只是想知道我提到的问题是 udp 的错误还是正常行为？
  • 您的客户端代码以块的形式发送文件数据，而没有确定哪些块按什么顺序排列。请记住，UDP 不保证这些块将按照它们被发送的相同顺序传送，也不保证它们将被传送。这就是为什么我建议您改用 TFTP 协议的原因，因为它确实保证了排序，并且允许在丢失的卡盘丢失时重新传输它们。
  • 此外，您的服务器代码仅在按下按钮时才保存块，但在您按下按钮之前或在保存对话框仍然可见时可能会到达多个块。您需要将每个块保存在 OnUDPRead 事件中(每个块到达时触发)，因此您需要在接收第一个块之前提示输入目标文件，而不是在接收块的中间。更有理由切换到 TFTP 协议。
  • TFTP 发送文件名并提示接收者允许继续，然后再发送第一个块。接收者可以在返回初始回复之前创建文件，然后在它们到达时将块接收到该文件中。 Indy 的 TFTP 组件会为您处理这些细节。
  • @RemyLebeau：非常感谢您的帮助，在开始使用 tidtrivialftpserver 之前，我想问一下它的服务器组件是否像 tidudpserver 一样作为客户端和服务器工作？因为我需要为 p2p 而不是客户端/服务器实现它。
  • 您不能将 TIdTrivialFTPServer 用作客户端，只能用作服务器。您必须使用 TIdTrivialFTP 作为客户端。
  • 好的，我认为对于 p2p，我必须将两个组件放在一个表单上？以便它可以同时作为客户端或服务器(发送和接收)做出反应。对吗？

Indy 有 TIdTrivialFTP 和 TIdTrivialFTPServer 组件。 TFTP 是一种基于 UDP 的文件传输协议。您应该考虑使用它而不是创建自己的自定义协议。

Delphiindyspanclassnbspdelphiindy10

有关关于indy10：使用Delphi Indy 10进行UDP文件传输的更多相关文章

  1. ruby - 如何使用 Nokogiri 的 xpath 和 at_xpath 方法 - 2

    我正在学习如何使用Nokogiri，根据这段代码我遇到了一些问题:require'rubygems'require'mechanize'post_agent=WWW::Mechanize.newpost_page=post_agent.get('http://www.vbulletin.org/forum/showthread.php?t=230708')puts"\nabsolutepathwithtbodygivesnil"putspost_page.parser.xpath('/html/body/div/div/div/div/div/table/tbody/tr/td/div

  2. ruby - 使用 RubyZip 生成 ZIP 文件时设置压缩级别 - 2

    我有一个Ruby程序，它使用rubyzip压缩XML文件的目录树。gem。我的问题是文件开始变得很重，我想提高压缩级别，因为压缩时间不是问题。我在rubyzipdocumentation中找不到一种为创建的ZIP文件指定压缩级别的方法。有人知道如何更改此设置吗？是否有另一个允许指定压缩级别的Ruby库？ 最佳答案 这是我通过查看ruby​​zip内部创建的代码。level=Zlib::BEST_COMPRESSIONZip::ZipOutputStream.open(zip_file)do|zip|Dir.glob("**/*")d

  3. ruby - 为什么我可以在 Ruby 中使用 Object#send 访问私有(private)/ protected 方法？ - 2

    类classAprivatedeffooputs:fooendpublicdefbarputs:barendprivatedefzimputs:zimendprotecteddefdibputs:dibendendA的实例a=A.new测试a.foorescueputs:faila.barrescueputs:faila.zimrescueputs:faila.dibrescueputs:faila.gazrescueputs:fail测试输出failbarfailfailfail.发送测试[:foo,:bar,:zim,:dib,:gaz].each{|m|a.send(m)resc

  4. ruby-on-rails - 使用 Ruby on Rails 进行自动化测试 - 最佳实践 - 2

    很好奇，就使用ruby​​onrails自动化单元测试而言，你们正在做什么？您是否创建了一个脚本来在cron中运行rake作业并将结果邮寄给您？git中的预提交Hook？只是手动调用？我完全理解测试，但想知道在错误发生之前捕获错误的最佳实践是什么。让我们理所当然地认为测试本身是完美无缺的，并且可以正常工作。下一步是什么以确保他们在正确的时间将可能有害的结果传达给您？ 最佳答案 不确定您到底想听什么，但是有几个级别的自动代码库控制:在处理某项功能时，您可以使用类似autotest的内容获得关于哪些有效，哪些无效的即时反馈。要确保您的提

  5. ruby - 在 Ruby 中使用匿名模块 - 2

    假设我做了一个模块如下:m=Module.newdoclassCendend三个问题:除了对m的引用之外，还有什么方法可以访问C和m中的其他内容？我可以在创建匿名模块后为其命名吗(就像我输入“module...”一样)？如何在使用完匿名模块后将其删除，使其定义的常量不再存在？ 最佳答案 三个答案:是的，使用ObjectSpace.此代码使c引用你的类(class)C不引用m:c=nilObjectSpace.each_object{|obj|c=objif(Class===objandobj.name=~/::C$/)}当然这取决于

  6. ruby - 使用 ruby​​ 和 savon 的 SOAP 服务 - 2

    我正在尝试使用ruby​​和Savon来使用网络服务。测试服务为http://www.webservicex.net/WS/WSDetails.aspx?WSID=9&CATID=2require'rubygems'require'savon'client=Savon::Client.new"http://www.webservicex.net/stockquote.asmx?WSDL"client.get_quotedo|soap|soap.body={:symbol=>"AAPL"}end返回SOAP异常。检查soap信封，在我看来soap请求没有正确的命名空间。任何人都可以建议我

  7. python - 如何使用 Ruby 或 Python 创建一系列高音调和低音调的蜂鸣声？ - 2

    关闭。这个问题是opinion-based.它目前不接受答案。想要改进这个问题？更新问题，以便editingthispost可以用事实和引用来回答它.关闭4年前。Improvethisquestion我想在固定时间创建一系列低音和高音调的哔哔声。例如:在150毫秒时发出高音调的蜂鸣声在151毫秒时发出低音调的蜂鸣声200毫秒时发出低音调的蜂鸣声250毫秒的高音调蜂鸣声有没有办法在Ruby或Python中做到这一点？我真的不在乎输出编码是什么(.wav、.mp3、.ogg等等)，但我确实想创建一个输出文件。

  8. ruby-on-rails - 按天对 Mongoid 对象进行分组 - 2

    在控制台中反复尝试之后，我想到了这种方法，可以按发生日期对类似activerecord的(Mongoid)对象进行分组。我不确定这是完成此任务的最佳方法，但它确实有效。有没有人有更好的建议，或者这是一个很好的方法？#eventsisanarrayofactiverecord-likeobjectsthatincludeatimeattributeevents.map{|event|#converteventsarrayintoanarrayofhasheswiththedayofthemonthandtheevent{:number=>event.time.day,:event=>ev

  9. ruby-on-rails - 'compass watch' 是如何工作的/它是如何与 rails 一起使用的 - 2

    我在我的项目目录中完成了compasscreate.和compassinitrails。几个问题:我已将我的.sass文件放在public/stylesheets中。这是放置它们的正确位置吗？当我运行compasswatch时，它不会自动编译这些.sass文件。我必须手动指定文件:compasswatchpublic/stylesheets/myfile.sass等。如何让它自动运行？文件ie.css、print.css和screen.css已放在stylesheets/compiled。如何在编译后不让它们重新出现的情况下删除它们？我自己编译的.sass文件编译成compiled/t

  10. ruby - 使用 ruby​​ 将 HTML 转换为纯文本并维护结构/格式 - 2

    我想将html转换为纯文本。不过，我不想只删除标签，我想智能地保留尽可能多的格式。为插入换行符标签，检测段落并格式化它们等。输入非常简单，通常是格式良好的html(不是整个文档，只是一堆内容，通常没有anchor或图像)。我可以将几个正则表达式放在一起，让我达到80%，但我认为可能有一些现有的解决方案更智能。 最佳答案 首先，不要尝试为此使用正则表达式。很有可能你会想出一个脆弱/脆弱的解决方案，它会随着HTML的变化而崩溃，或者很难管理和维护。您可以使用Nokogiri快速解析HTML并提取文本:require'nokogiri'h

随机推荐