Lazarus 3.2 (2024.02.28.)
Letöltés

  • Oldal:
  • 1

TÉMA:

Futtatás hálózatról II. 2015 dec. 12 07:17 #1706

  • makgab
  • makgab profilkép Témaindító
  • Törzsgárda tag
  • Törzsgárda tag
  • Hozzászólások: 280
  • Köszönetek: 1
Üdv!
A korábban beszélt futtatás hálózatról témával kapcsolatban csináltam egy tesztet.
A Lazarusban készült app-ot feltettem egy samba4 hálózati meghajtóra (Win7 kliens), szépen működik is.
Az app kezeli a kivételeket ez alapján , pl.:
procedure TMainForm.CustomExceptionHandler(Sender: TObject; E: Exception);
begin
  // ...
  Showmessage( 'Kivétel keletkezett:' +E.message );
  LogError( ... );
end;   
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnException := @CustomExceptionHandler;
end;

Ha hálózatról fut az app, akkor kivétel esetén nem jelenik meg az üzenet, hanem a windows jelzi, hogy hiba keletkezett és bezárja az alkalmazást. Hálózatban a windows csinálja ezt?
(Lokálisan működik minden, nem záródik be az app.)
A kivétel egy "invalid floating point error" volt (túlcsordult).

  • Oldal:
  • 1