Question

delphi高手进,关于UDP发送文件这块的问题

我这边有UDP局域网分段发送文件的2个代码,代码可编译可以使用,我只是想改动一点.改动发送端的只能发送一次,第二次发送就报错.还有接收端不要另存为,只要保存在指定文件夹或者本地文件夹即可.
虽然代码不是很多,但是也不能全部复制上来,高手请加QQ915450032.谢谢!
procedure TFormClient.Button1Click(Sender: TObject);
Var ReceivedString:String;
Mem:TFileStream;
p:Array[0..5119] of byte;
Posi,Len:Integer;
begin
if OpenDialog1.Execute then
begin
IdUDPClient1.Host:=Edit1.Text;
IdUDPClient1.Active:=True;
IdUDPClient1.Send('Send file:File Name:'+OpenDialog1.FileName);
ReceivedString := IdUDPClient1.ReceiveString();
if UpperCase(ReceivedString)='RECIVED FILE NAME OK!' then
begin
Mem:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
try
Posi:=0;
IdUDPClient1.Send('Send File:File Length:'+IntToStr(Mem.Size));
ReceivedString := IdUDPClient1.ReceiveString();
if UpperCase(ReceivedString)='RECIVED FILE LENGTH OK!' then
begin

Answer 1

最简单的做法，可以在 if OpenDialog1.Execute then之前做一下检验，是否已经发送过一次，如果是，则提示，然后跳出，如果不是，运行发送过程，在发送过程完成之后，对该标志赋值。
if bPassSending then
begin
ShowMessage('不能再次发送');
exit;
end;
if OpenDialog1.Execute then
.....
发送完成之后
bPassSending := True;
end;

追问

打开程序时可以正常发送的，只是发送一个文件后，再继续发送就不行了。好像是有什么东西没有释放一样。

追答

第一次发送完成之后，关掉IdUDPClient1，
IdUDPClient1.Active:=False

Answer 2

自己做标识啊，在发放之前检查是否已经发送过

Answer 3

5ujhazq4ujha4zqujh