Hi.
Ich wusste jetzt nicht genau, wo ich das reinposten sollte, also bin ich einfach hier gelandet (passt ja auch). Ich habe da dieses Ereignis Button1Click geschrieben, welches dann beim Klicken eine Exception auslöst:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
| procedure TForm1.Button1Click(Sender: TObject);
begin
ado_q2.sql.commatext := 'Select * from Serverdaten';
ado_q2.open;
ado_q2.first;
sock := TTCPClient.Create(SELF);
l := 0;
i := 0;
while not ado_q2.eof do
begin
stringgrid1.cells(0,ado_q2.recno] := ado_q2.fieldbyname('Servername').asstring;
sock.RemoteHost := ado_q2.fieldbyname('IPAdresse').asstring;
repeat
if ado_q.fieldbyname('HTTP').asstring = 'true' then
sock.RemotePort := '80';
l := 1;
ConnPub;
if ado_Q.fieldbyname('HTTPS').asstring = 'true' then
sock.RemotePort := '443';
l := 2;
ConnPub;
if ado_q.fieldbyname('POP3').asstring = 'true' then
sock.remoteport := '110';
l := 3;
ConnPub;
if ado_q.fieldbyname('SMTP').asstring = 'true' then
sock.remoteport := '25';
l := 4;
ConnPub;
if ado_q.fieldbyname('FTP').asstring = 'true' then
sock.remoteport := '21';
l := 5;
ConnPub;
i:=i+1;
until i = 5;
ado_q2.next;
end;
ado_q2.close;
sock.free;
end; |
HIGHLIGHT > Hier schmeisst er mich immer raus
Von debugging habe ich absolut keinen Schimmer. Wäre schön, wenn ihr mich kurz beraten könntet
mfg, anarkids
Anarkids
