看了很多有關的文章可是找不到我要的 再【Delphi】ClientSocket跟ServeSocket裡面有內建傳檔的功能ㄇ? 有的話要如何使用........有特定的functionㄇ或是event或屬性...等等 可以靠訴我ㄇ.....我一直找不到......可以的話給我一個範例ㄅ..謝謝 PS.我不要BCB的我不會.....我是剛學delphi的人

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27613
http://delphi.ktop.com.tw/board.asp?tid=27613
--- 每個人都是一本書

哇~~~~~~~~~~看完才知道那是6.0版的.... 我的是5.0的ㄝ.........而且不是我要用的元件阿...... 有我要用的那種元件的ㄇ.........

這裏有一篇: http://www.swissdelphicenter.ch/en/showcode.php?id=1072    --- 每個人都是一本書    

...send a file from a TServerSocket to a TClientSocket?  
Autor: Elias Zurschmiede  
Homepage: http://www.delight.ch 
2 Comment(s) to this tip [Write new comment] 
[ Print tip ]         Tip Rating (0):   
              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.     

這裏有一篇: http://www.swissdelphicenter.ch/en/showcode.php?id=1072 PS.我不會用引言 請問這一篇....他是把檔案COPY過去但是要如何讓Client端知道COPY完了 而從新讀 才不會造成我再傳只能給Client端他會把當成是檔案阿 而且就算不傳訊息給他的.....COPY過去的檔案也不能開ㄝ 有辦法可以讓傳過去的檔案還可以開開來使用ㄇ?

http://www.delphi3000.com/articles/article_2313.asp http://www.1delphistreet.com/vb/scripts/ShowCode.asp?txtCodeId=783&lngWId=7 --- 每個人都是一本書