Entwickler-Ecke
Internet / Netzwerk - Brauch mal nen Rat zum Quelltext.
Anarkids - Di 11.04.06 13:21
Titel: Brauch mal nen Rat zum Quelltext.
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:
Delphi-Quelltext
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
der Berliner - Di 11.04.06 13:31
Hallo kann es sein das hier der unterstrich fehlt ?
ado q
Narses - Di 11.04.06 13:34
Moin!
 Anarkids hat folgendes geschrieben: |
| Ich habe da dieses Ereignis Button1Click geschrieben, welches dann beim Klicken eine Exception auslöst: |
Und wo kämen wir denn hin, wenn du uns auch noch verraten hättest, WELCHE Exception Auftritt... ;) macht ja den ganzen Ratespaß kaputt... :gruebel: :rofl:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| 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 begin
sock.RemotePort := '80';
l := 1;
ConnPub;
end;
if ado_Q.fieldbyname('HTTPS').asstring = 'true' then |
Keine Ahnung, was du da tust, aber gehört das nicht geklammert? ;)
cu
Narses
alzaimar - Di 11.04.06 13:38
Überall nimmst Du auf ado_q2 bezug, aber bei der If-Abfrage auf ado_q. Wo kommt das her?
Miri - Di 11.04.06 13:40
ich würde auch auf die fehlenden begins und ends bei den if-abfragen tippen...
Anarkids - Di 11.04.06 13:42
nö mit klammerung funzt es auch nich.
sorry, hatte die exception total verpeilt:
Erste Gelegenheit für Exception bei $7C81EB33. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 00495420 in Modul 'Monit.exe'. Lesen von Adresse 00000030'. Prozess Monit.exe (1672)
...
Anarkids - Di 11.04.06 13:44
| alzaimar hat folgendes geschrieben: |
| Überall nimmst Du auf ado_q2 bezug, aber bei der If-Abfrage auf ado_q. Wo kommt das her? |
ja lol .... sorry :)
fehler gefunden!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!