p2p都會掉封包 請幫我看看哪裡寫錯... 拜託    unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, IdTCPServer, IdHTTP, IdBaseComponent, IdComponent,   IdTCPConnection, IdTCPClient, StdCtrls,strutils;    type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Button1: TButton;     IdTCPClient1: TIdTCPClient;     IdHTTP1: TIdHTTP;     IdTCPServer1: TIdTCPServer;     procedure Button1Click(Sender: TObject);     procedure IdTCPServer1Execute(AThread: TIdPeerThread);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject); var i,ipos:integer; filename :string ; t4:tfilestream; t1: tfilestream; t2: string ; sExtName : string ; begin          IdTCPClient1.Host :=edit1.Text ;          IdTCPClient1.Port := 1111 ;          IdTCPClient1.Connect;          IdTCPClient1.WriteLn(edit2.Text );          if  DirectoryExists('c:\知識管理')=false  then           createdir('c:\知識管理');           if LeftStr(edit2.Text,7) = 'http://' then begin            for i:=length(edit2.Text)-1 downto 0 do begin                if edit2.Text[i]='/' then begin                   ipos:=i;                   break;                end;            end;           filename:=copy(edit2.Text,ipos+1,length(edit2.Text)-ipos);           t4:= tfilestream.Create('c:\知識管理\'+filename,fmCreate or fmShareExclusive);           idhttp1.Get(edit2.Text,t4);           showmessage('已經傳送到c:\知識管理\');           t4.Free;           IdTCPClient1.Disconnect;          end else begin                   try                   sExtName := ExtractFileName(edit2.Text);                   if  DirectoryExists('c:\知識管理')=false  then                       createdir('c:\知識管理');                   t1:= tfilestream.create('c:\知識管理\'+sExtName, fmcreate or fmShareExclusive);                   IdTCPClient1.ReadStream(t1, -1,true);                   showmessage('已經傳送到c:\知識管理\');                   finally                   IdTCPClient1.Disconnect;                   t1.free;                   end;             end; end; procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); var t2 : tfilestream; sExtName:  String; t3: string ; begin        sExtName:= AThread.Connection.ReadLn() ;        if LeftStr(sExtName,7) = 'http://' then begin           sExtName:=sExtName;        end else begin          try           t2 := tfilestream.Create(sExtName,fmOpenRead or fmShareDenyNone);           t2.Seek(0,soFromBeginning);           AThread.Connection.OpenWriteBuffer;           AThread.Connection.WriteStream(t2);           AThread.Connection.CloseWriteBuffer;           finally           t2.Free;           end;         end; end;    procedure TForm1.FormCreate(Sender: TObject); begin  IdTCPServer1.DefaultPort := 1111;  IdTCPServer1.Active := true ; end;    end.

    豬ㄚ你!!這麼簡單的東西...你都不懂......= =....誰叫我是新手呢...@ @
        

bebehome123 您好..    關於傳檔..請看一下這DDY大人的這篇文章.. 【發表】網路下載檔案範例(Indy IdTCPServer/IdTCPClient) 含Source  http://delphi.ktop.com.tw/topic.php?topic_id=27733    還有..如果要貼程式碼麻煩請參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=7326    

< >	=程式是一種藝術 也是訓練自己的分析規劃= =是段落分明 或是雜亂無章= =是一言以敝 或是廢話連篇= =是一目了然 或是艱深難懂= 體會這份藝術 您會了解另一份喜悅與成就

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.