Реферат Розробка програми передачі повідомлень по локальній мережі

justify"> {$ R *. dfm} TAboutBox.OKButtonClick (Sender: TObject);;;.

// ЗаставкаZastavka;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, jpeg; = class (TForm): TTimer;: TImage;: TLabel;: TLabel ; Timer1Timer (Sender: TObject); FormKeyPress (Sender: TObject; var Key: Char);

{Private declarations}

{Public declarations};: TForm3; Glavnaya;

{$ R *. dfm} TForm3.Timer1Timer (Sender: TObject);. Enabled: = false;. close;. show;; TForm3.FormKeyPress (Sender: TObject; var Key: Char) ;. close;. Show;

end; end.

// Клієнт (Прийняття даних)

unit client;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,, XPMan, Buttons, ExtCtrls, FileCtrl, ComCtrls, Menus, jpeg; = class (TForm): TIdTCPClient;: TBitBtn;: TXPManifest;: TGroupBox;: TLabeledEdit;: TLabeledEdit;: TBitBtn;: TMemo;: TDirectoryListBox;: TDriveComboBox;: TGroupBox;: TStatusBar;: TTimer;: TImage; IdTCPClient1Connected (Sender : TObject); BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); FormCreate (Sender: TObject); Timer1Timer (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean); LabeledEdit1KeyPress (Sender: TObject; var Key: Char); LabeledEdit2KeyPress (Sender: TObject; var Key: Char); LabeledEdit3KeyPress (Sender: TObject; var Key: Char); LabeledEdit4KeyPress (Sender: TObject; var Key: Char); N3Click (Sender: TObject); N2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4;: string;: integer;: TFileStream;: TDateTime;: string;: string;: integer; oproge, Glavnaya;

{$ R *. dfm} TForm4.IdTCPClient1Connected (Sender: TObject);: PChar;: Cardinal;

// FS: TFileStream; (FileName, 256);: = directorylistbox1.Directory + '';. ReadBuffer (FileName ^, 256);. ReadBuffer (FileSize, SizeOf (FileSize));

// FS: = TFileStream.Create ('C: incoming ' + FileName, fmCreate);// òóò ñîçäàåòñÿ ôàéë, ÿ åãî ïîëîæèë â êàòàëîã incoming : = TFileStream.Create (put + FileName, fmCreate);. ReadStream (FS, TObject);: = directorylistbox1.Directory + '';. ConnectAndGetAll;; TForm4.BitBtn2Click (Sender: TObject);: = labelededit1.Text;: = StrToInt (labelededit2.Text);. Host: = host;. Port: = port;

memo1.Lines.Add (TimeToStr (now) + '-' + DateToStr (now) + '| |' + 'âûáðàí ñåðâåð' + host + ':' + IntTOStr (port));

end; TForm4.FormCreate (Sender: TObject);: = '127 .0.0.1 ';: = 3000;: = directorylistbox1.Directory +' ';

// directorylistbox1.D...