[es] - Program crash - jel zna neko zasto?

gajo2
Budapest

Član broj: 62614
Poruke: 518
*.ptt.yu.

Sajt: b.flyingoranges.com

+117 Profil

^{25.11.2006. u 18:56 - pre 212 meseci}

Pozdrav,

Napravio sam jedan programcic u Delphiju sto salje queryje Google-u, cita rezultat i onda sve to baca u tabelu. Koriste se i proxyji i vise threadova, tako da u svakom trenutku oko 20 threadova pristupa Google-u preko 20 proxyja i skida rezultat.

Problem se ne javlja kod mene nego kod klijenta. Naime, njemu se desava da dobije error dijalog sa sledecom porukom:

Citat:

<ime programa> has encountered a problem and needs to close. We are sorry for the inconvenience.

If you were in the middle of something, the information you were working on might be lost.

Ovaj dijalog ima samo Close dugme. Ako korisnik klikne na njega cela aplikacija ce se zatvoriti. Medjutim, ako ne klikne, program nastavlja da radi bez problema i na kraju moze i da exportuje listu u CSV fajl itd.

Dakle sve mi se cini da je jedan thread crko i da se zbog toga pojavio ovaj dijalog. Sad sam smanjio broj threadova na 5, ali ni to ne pomaze.
Ovaj error dijalog inace ne prikazujem ja (preko MessageDlg-a) nego Windows, pa nemam ni opciju da ga sprecim da se pojavi.

Pogledao sam po internetu i nasao neke simptome zasto se ovo desava klijentu, a ne i meni:
http://support.microsoft.com/kb/276550
http://support.microsoft.com/kb/900004

Dakle ili je neki upgrade koji ja nemam a klijent ima, ili je greska u programu.

Da li se nekome vec desila ova greska i zna sta je problem?

Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.dynamic.sbb.co.yu.

+1 Profil

Re: Program crash - jel zna neko zasto?

^{27.11.2006. u 21:23 - pre 212 meseci}

Windows prikazuje tu poruku jer se u tvom programu desava exception koji ti ne obradjujes. Za pocetak treba utvrditi gde se desava problem jer svasta moze da bude izrok (recimo od regionalnih podesavanja pa na dalje), sve zavisi od toga sta tvoj kod konkretno radi. Recimo da je tvoj kod u okviru niti ovakav:

Code:

procedure TMojaNit.Execute;
begin
NekiPosao;
JosNekiPosao;
end;

probaj da promenis u:

Code:

procedure TMojaNit.Execute;
begin
   try
     NekiPosao;
     JosNekiPosao;
   except
      On E: Exception do
       Log(E.ClassName + '->' + E.Message);
   end;
end;

gde ce ti log funkcija biti zaduzena za upis stringa u log fajl. Obrati paznju na to da zastitis kriticnom sekcijom upis u fajl kako se niti ne bi sudarile na tom delu. Onda da vidimo sta kaze log fajl.

Odgovor na temu