Scribd Logo
Upload

Welcome to Scribd!

  • 48 views

    FTP Dengan Delphi

    Uploaded by

    Bunda To
    This document describes how to send a file from a TServerSocket to a TClientSocket in Delphi. It defines the necessary components, event handlers, and file stream objects. When the client connects, it creates a file stream to receive the file. The server sends the file stream to the client upon connection. The client saves the received data to its file stream.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as TXT, PDF, TXT or read online from Scribd

    FTP Dengan Delphi

    Uploaded by

    Bunda To
    48 views3 pages
    This document describes how to send a file from a TServerSocket to a TClientSocket in Delphi. It defines the necessary components, event handlers, and file stream objects. When the client connects, it creates a file stream to receive the file. The server sends the file stream to the client upon connection. The client saves the received data to its file stream.

    Original Description:

    Original Title

    Ftp Dengan Delphi

    Copyright

    © Attribution Non-Commercial (BY-NC)

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document describes how to send a file from a TServerSocket to a TClientSocket in Delphi. It defines the necessary components, event handlers, and file stream objects. When the client connects, it creates a file stream to receive the file. The server sends the file stream to the client upon connection. The client saves the received data to its file stream.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    48 views3 pages

    FTP Dengan Delphi

    Uploaded by

    Bunda To
    This document describes how to send a file from a TServerSocket to a TClientSocket in Delphi. It defines the necessary components, event handlers, and file stream objects. When the client connects, it creates a file stream to receive the file. The server sends the file stream to the client upon connection. The client saves the received data to its file stream.

    Copyright:

    Attribution Non-Commercial (BY-NC)
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    of 3

    Kategori: Internet / Lan Title: Send a file from a TServerSocket to a TClientSocket Judul: Mengirim file dari sebuah TServerSocket

    ke TClientSocket Author: www.swissdelphicenter.ch Author: www.swissdelphicenter.ch Date added: 15.03.2006 Tanggal dimasukkan: 2006/03/15 Hits: 12624 Hits: 12624 unit Unit1; unit Unit1; interface interface uses menggunakan Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windo ws, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, StdCtrls; Dialog, ScktComp, StdCtrls; type tipe TForm1 = class(TForm) TForm1 = class (TForm) ClientSocket1: TClientSocket; ClientSocket1: TClientSocket; ServerSocket1: TServerSocket; ServerSocket1: TServerSocket; btnTestSockets: TButton; btnTestSockets: TButton; procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); Prosedur ClientSocket1Read (Sender: TObject; Socket: TCustomWinSocket); procedure FormCreate(Sender: TObject); Prosedur FormCreate (Sender: TObject); procedure FormDestroy(Sender: TObject); Prosedur FormDestroy (Sender: TObject); procedure ClientSocket1Disconnect(Sender: TObject; Prosedur ClientSocket1Disconn ect (Sender: TObject; Socket: TCustomWinSocket); Socket: TCustomWinSocket); procedure ClientSocket1Connect(Sender: TObject; Prosedur ClientSocket1Connect (S ender: TObject; Socket: TCustomWinSocket); Socket: TCustomWinSocket); procedure ServerSocket1ClientConnect(Sender: TObject; Prosedur ServerSocket1Clie ntConnect (Sender: TObject; Socket: TCustomWinSocket); Socket: TCustomWinSocket); procedure btnTestSocketsClick(Sender: TObject); Prosedur btnTestSocketsClick (Se nder: TObject); private swasta FStream: TFileStream; Untuk file: TFileStream; { Private-Deklarationen } {Swasta-Deklarationen} public publik { Public-Deklarationen } {Public-Deklarationen} end; akhir; var var Form1: TForm1; Form1: TForm1; implementation pelaksanaan {$R *.dfm} {$ R *. DFM} procedure TForm1.ClientSocket1Read(Sender: TObject; Prosedur TForm1.ClientSocket 1Read (Sender: TObject;

    Socket: TCustomWinSocket); Socket: TCustomWinSocket); var var iLen: Integer; iLen: Integer; Bfr: Pointer; BFR: Pointer; begin mulai iLen := Socket.ReceiveLength; iLen: = Socket.ReceiveLength; GetMem(Bfr, iLen); GetMem (BFR, iLen); try mencoba Socket.ReceiveBuf(Bfr^, iLen); Socket.ReceiveBuf (BFR ^, iLen); FStream.Write(Bfr^, iLen); FStream.Write (BFR ^, iLen); finally akhirnya FreeMem(Bfr); FreeMem (BFR); end; akhir; end; akhir; procedure TForm1.FormCreate(Sender: TObject); Prosedur TForm1.FormCreate (Sender : TObject); begin mulai FStream := nil; Untuk file: = nil; end; akhir; procedure TForm1.FormDestroy(Sender: TObject); Prosedur TForm1.FormDestroy (Send er: TObject); begin mulai if Assigned(FStream) then jika ditugaskan (untuk file) kemudian begin mulai FStream.Free; FStream.Free; FStream := nil; Untuk file: = nil; end; akhir; end; akhir; procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Prosedur TForm1.Client Socket1Disconnect (Sender: TObject; Socket: TCustomWinSocket); Socket: TCustomWinSocket); begin mulai if Assigned(FStream) then jika ditugaskan (untuk file) kemudian begin mulai FStream.Free; FStream.Free; FStream := nil; Untuk file: = nil; end; akhir; end; akhir; procedure TForm1.ClientSocket1Connect(Sender: TObject; Prosedur TForm1.ClientSoc ket1Connect (Sender: TObject; Socket: TCustomWinSocket); Socket: TCustomWinSocket); begin mulai FStream := TFileStream.Create('c:\temp\test.stream.html', fmCreate or fmShareDen yWrite); Untuk file: = TFileStream.Create ('c: \ temp \ test.stream.html', fmCre ate atau fmShareDenyWrite); end; akhir; procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Prosedur TForm1.Ser verSocket1ClientConnect (Sender: TObject; Socket: TCustomWinSocket); Socket: TCustomWinSocket); begin mulai

    Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareD enyWrite)); Socket.SendStream (TFileStream.Create ('c: \ temp \ test.html', fmOp enRead atau fmShareDenyWrite)); end; akhir; procedure TForm1.btnTestSocketsClick(Sender: TObject); Prosedur TForm1.btnTestSo cketsClick (Sender: TObject); begin mulai ServerSocket1.Active := True; ServerSocket1.Active: = True; ClientSocket1.Active := True; ClientSocket1.Active: = True; end; akhir; end. akhir.

    You might also like