 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
| Autor | Správa |
|---|
Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 |  Napísal ha2: 23.01.2010 14:46 | |
|
Pripajam sa na server pomocou komponenty clientsocket. Potrebujem odchytit vynimku ked server nieje dostupny (vobec neexistuje). Je tam udalost onError, kde si dam napr.
Kód: memo1.lines.add('zly server');
ale aj tak vyhodi chybu o asyn. chybe. A to nechcem. skusal som pomocou try exception ale neviem to odstranit.
V skratke, chem upozornovat na chybu sam v aplikacii nie cez win chybove hlasenia.
|
|
Registrovaný: 11.01.09
Prihlásený: 24.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova | Napísal Fico: 23.01.2010 15:06 | |
|
Pokiaľ viem, tak chyby od debuggeru vybehujú, iba pokiaľ program spúšťaš v debuggeri (teda keď ho ladíš, spúšťaš priamo v Delphi). Neviem, či si program skúšal spúšťať priamo z miesta na disku, kde bol vytvorený. Ak nie, tak to skús (čiže ho spusti mimo Delphi, ako obyčajnú aplikáciu) a ak chybovú správu aj tak zobrazí, tak skús toto:
Kód: try
// problémové miesto v kóde
except
On E: Exception do memo1.lines.add('zly server');
end;
|
|
Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | Napísal autor témy ha2: 23.01.2010 15:35 | |
|
skusal som aj tento zapis predtym len asi neosetrujem spravny kod.
mam
Kód: procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Host:=server;
clientsocket1.Port:=port;
clientsocket1.active:=true;
end;
dalej mam uz iba onconnect a onread. A ked osetrim button tak nic neodchyti
..a skusal som to aj mimo delphi samozrejme
|
|
Registrovaný: 11.01.09
Prihlásený: 24.04.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova | Napísal Fico: 23.01.2010 16:22 | |
|
Tak to potom asi naozaj ošetruješ nesprávny kód. Skús dať blok try/except na všetky procedúry, čiže:
Kód: procedure XXX;
begin
try
//telo procedury
except
on E: Exception do ShowMessage('1');
end;
end;
s tým, že do ShowMessage daj vždy iné číslo, napr pre ButtonClick jdenotku, OnConnect dvojku a pre OnRead trojku. Potom budeš vedieť kde je chyba. Nie je to nejaký extra spôsob, ale keďže nemám tento komponent, nedokážem ti inakšie pomôcť. Môžeš sa ešte pozrieť na tento príklad a upraviť svoj kód podľa neho.
// Mimochodom, debugger ti nazastaví s kurzorom na mieste, kde je chyba?
|
|
Registrovaný: 21.12.08
Prihlásený: 14.07.16
Príspevky: 114
Témy: 21 | Napísal autor témy ha2: 23.01.2010 21:47 | |
|
nie debuger mi neskoci na riadok s chybou pretoze chyba nenastala v mojom kode ale v komponente. kedze sa napaja na neexistujuci server, alebo ak simulujem vypadok netu tak to hodi tiez error. Skusal som vsade osetrit + showmessage a je jak som predpokladal. Tu chybovu spravu vyvolava telo onError procedury
Kód: procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
showmessage('onError');
end; sucasne s hlasenim o chybe nabehne sprava "onError". Je to procedura na urcenie co ma program robit pri chybe, to je pekne ale neviem prist nato ako to hlasenie odstranit, a okrem toho ten skaredy windowsacky "brmmmm" zvuk pri chybe EDIT: Vyriesene. Kód: procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;
strasne tazke .... ale napadne cloveka?
|
|
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | Odchytenie domény pri expirácii v Domény | 4 | 762 | 07.06.2016 8:58 expresado  | | Windows 7 kontrola používateľských kont nastavenie výnimky v Operačné systémy Microsoft | 5 | 2488 | 14.03.2011 23:35 patrick1 | | Odchytenie refreshu v PHP, ASP | 7 | 565 | 01.05.2009 22:02 Feko | | Delphi 7 problém pri inštalácii na Win7 64bit v Delphi, Visual Basic | 6 | 1155 | 25.04.2012 23:52 shiro | | Odchytenie COM domény v Domény | 1 | 512 | 25.01.2014 15:04 DeiForm | | delphi zapis cisla do editu v delphi v Delphi, Visual Basic | 3 | 1107 | 11.05.2008 12:02 p360t |  | Delphi-kalkulačka v Delphi, Visual Basic | 17 | 1157 | 02.03.2013 10:18 expoox | | [Delphi] Okno v Delphi, Visual Basic | 6 | 687 | 15.01.2010 21:42 vama | | delphi odseknutie... v Delphi, Visual Basic | 2 | 671 | 04.03.2009 19:29 BBUlet | | [Delphi] komponent v Delphi, Visual Basic | 21 | 1885 | 16.03.2010 17:05 zy-zy-zyrixi | | Delphi 7 v Ostatné programy | 3 | 286 | 08.10.2013 19:11 michalesku | | Free Delphi v Delphi, Visual Basic | 2 | 875 | 18.06.2010 14:36 Manny | | Delphi print v Delphi, Visual Basic | 3 | 927 | 28.07.2009 18:26 Fico |  | Priklad Delphi v Delphi, Visual Basic | 3 | 507 | 25.01.2017 8:46 focko | | [Delphi] klavesy v Delphi, Visual Basic | 15 | 2060 | 06.02.2010 13:04 Fico | | Delphi class v Delphi, Visual Basic | 1 | 791 | 10.09.2009 16:35 Fico |
| Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
|
|
![[Delphi] odchytenie vynimky pri clientsocket](/avatars/21001.jpg)