V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
...:: Server Status ::...
1. Adaugam din tabul STANDARD un buton(TButton)
2. Adaugam din tabul STANDARD 2 edit(TEdit)
3. Adaugam din tabul STANDARD un checkbox (TCheckbox)
4. Adaugam din tabul INTERNET un Tcpclient(TTcpclient)
5. Selectam butonul , din Object Inspector la caption punem Verifica
6. Selectam edit1 , din Object Inspector la caption punem Server IP Adress
7. Selectam edit2, din Object Inspector la caption punem Port
8. Selectam checkbox1, din Object Inspector la caption punel Port Automat
9. Dam dublu click pe checkbox1 si scriem
| Citat: |
if checkbox1.checked = true then
edit2.text := '27015'
else
edit2.text := 'Port'; |
10. Dam dublu click pe buton si scriem
| Citat: |
Tcpclient1.remotehost := edit1.text;
Tcpclient1.remoteport := edit2.text;
Tcpclient1.active := true;
Tcpclient1.connect;
if tcpclient1.connect = true then
Showmessage('Serverul este online!' )
else
Showmessage('Serverul este offline!' ); |
|
 |
