Реферат Проектування металоконструкцій мостового крана

Тема: Новые рефераты

TIdIPWatch;: TOpenDialog;: TListView;: TImageList;: TPopupMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TListBox;: TLabel;: TLabel;: TMenuItem ;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMemo; BitBtn1Click (Sender: TObject); Panel3MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Panel3MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Panel3MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer); FormMouseMove (Sender: TObject; Shift: TShiftState; X,: Integer) ; Panel2MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer); Panel3Click (Sender: TObject); Panel2Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); BitBtn2Click (Sender: TObject);

/ / procedure BitBtn32Click (Sender: TObject); TCPClientConnected (Sender: TObject); FormCreate (Sender: TObject); Timer1Timer (Sender: TObject); CtrlAltDel1Click (Sender: TObject); N8Click (Sender: TObject); N11Click (Sender: TObject); Explorer1Click (Sender: TObject); N23Click (Sender: TObject); N22Click (Sender: TObject); N24Click (Sender: TObject); N26Click (Sender: TObject); N28Click (Sender: TObject); N29Click (Sender: TObject); N2Click (Sender: TObject); askBar1Click (Sender: TObject); askBar2Click (Sender: TObject); Timer2Timer (Sender: TObject); N41Click ( Sender: TObject); N10Click (Sender: TObject); ListView1KeyUp (Sender: TObject; var Key: Word;: TShiftState); ListView1MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); N45Click (Sender : TObject); N47Click (Sender: TObject); N48Click (Sender: TObject); RadioButton1Click (Sender: TObject); N49Click (Sender: TObject); N50Click (Sender: TObject); ListView1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); N39Click (Sender: TObject); BitBtn32Click (Sender: TObject);

{Private declarations}

{Public declarations }readhost;GetiniFileName:string;SaveIniFileName(fname:string);writehosts;IpComand(Comand:string);RefreshObjects;ReadAdressName(fname: string); SaveAdressName (fname: string);; aversion=« Version: 1.0 »; =« RD.ini »;=8090;: TForm1;: TStringStream;: boolean;, sc: byte;, CAdr, FAdd, SiCom: array [0 .. 255] of string;, i3, SelectedCount: integer;: string=«c: rd.ini»;, z1: ??text; about1, unit4, icman, messman, runman, sysInfoMan;

{$ IFDEF MSWINDOWS} {$ R *. dfm} {$ ELSE} {$ R *. xfm} {$ ENDIF}

TForm1.IpComand (Comand: string); xx, i1, ii: integer;

/ / s: string;:=0;:=0; SelectedCount> 0 thenxx:=0 to SelectedCount - 1 do

/ / sleep (10);:=xx;

/ / if (TCPClient.connected=true) and (TCPClient.Host=fadd [xx]) then

//tcpclient.port:=defaultipport;.Disconnect;.Host:=fadd[xx];.port:=defaultipport;.Connect;

comand=«» then if sc> 1 thenii:=0 to sc do.writeln (sicom [ii]);

/ / sleep (10);. writeln (comand);

/ / continue;. Lines.Add («невдалі встановити зв'язок з» + fadd [i1]);;; (sicom, sizeof (sicom), 0); sc:=0;

end;

{except.Caption:=«невдалі встановити зв'язок з» + fadd [i1];

end;}