Procedur mit Timeout aufrufen...

[sonic]

Hallo zusammen!

Folgende Problematik:
Ich rufe in meinem Programm Routinen einer DLL auf.
Die DLL kann ich nicht beeinflussen, die bekomme ich so geliefert.

Unter gewissen Umständen kommt es dazu das die DLL in einer Prozedur "hängt".
(z.B.: gekappte Netzwerkverbindung mit der die DLL gerade arbeitet)

Meine Frage: Seht ihr eine Möglichkeit die Prozedur so aufzurufen das ich
einen Timeout angeben kann um dann die Prozedur gewaltsam zu beenden ...

Gleich vorweg -> schon klar das normalerweise das Problem schon in der DLL behoben werden
sollte - ist aber leider für mich nicht änderbar.

Dachte schon an sowas wie Thread starten - darin Prozedur aufrufen, und nach Timeout Thread gewaltsam
beenden. (allerdings weiß ich nicht wie und ob das überhaupt geht...)

Wäre für Ideen sehr dankbar.

Mlg Sonic

[oki]

Hi Sonic,

grundsätzlich mußt du herausbekommen, wie sich deine DLL verhält, wenn du den Procedure-Zugriff einfach "abschießt". Prüfe auch vorher, ob es nicht andere Möglichkeiten gibt aus der Procedure zurückzukommen.

Sollte das nicht möglich sein, so sehe ich nur die Möglichkeit den Aufruf in einen Thread zu verlagern und von "außen" einen Timeout darüber zu legen. Kehrt dein Thread nicht nach einer gewissen Zeit mit einem Ergebnis zurück, so beendest du ihn von außen. Das heißt dann, das mit jedem Aufruf ein neuer Thread gestartet wird, dieser die Procedure ausführt und dann beendet wird. Läuft er ins Tomeout, beendest du ihn von außen und fängst wieder von vorne an.

Gruß oki

[sonic]

Zitat:

grundsätzlich mußt du herausbekommen, wie sich deine DLL verhält, wenn du den Procedure-Zugriff einfach "abschießt".

Naja bisher hab ich leider noch keine Möglichkeit "abzuschiessen" ...

Zitat:

Läuft er ins Timeout, beendest du ihn von außen und fängst wieder von vorne an.

Bleibt für mich die Frage - Wie beende ich den Thread? Auf Terminated kann er ja im Execute nicht reagieren, weil er ja im Prozeduraufruf hängt...

[SirThornberry]

mit der Funktion TerminateThread kannst du einen Thread abschießen so wie der Taskmanager mit TerminateProcess einen ganzen Prozess abschießt.

[sonic]

Danke! Werds mal so versuchen!

Ich geb bescheid sobald ich weiß obs funktioniert...

[SirThornberry]

das es funktioniert kann ich dir jetzt schon sagen, hab das schon an verschiedensten Stellen verwendet. Wenn es nicht funktioniert liegt dann wohl an deiner Umsetzung oder der DLL

[sonic]

Hallo!

Wie schon prophezeit... Funktioniert perfekt! :-D

Danke nochmal!

Mlg Sonic

[sonic]

Hallo!

Wollte nur mal den Code einfügen wie ich nun die DLL Calls aufrufe...

Delphi-Quellcode:

function TClientAdapter.ExpBeginThread(ThreadFunc: TThreadFunc; Parameter: Pointer; Timout : integer): boolean;
var
  id     : LongWord;
  thread : Integer;
  wf     : DWORD;
begin
  Result := false;
  if fTimeout then
  begin
    Result := false;
    exit;
  end
  else
  begin
    thread := BeginThread(nil, 0, ThreadFunc, Parameter, 0, id);
    if (thread <> INVALID_HANDLE_VALUE) then
    begin
      wf := WaitForSingleObject(thread, Timout);
      case wf of
        WAIT_OBJECT_0:
        begin
          result := True;
        end;
        WAIT_TIMEOUT :
        begin
          TerminateThread(thread, 0);
          Timeout := True;
          result := False;
        end;
        WAIT_FAILED  :
        begin
          Timeout := True;
          result := False;
        end;
      end;
      CloseHandle(thread);
    end;
  end;
end;

function TClientAdapter.LibKeepAlive(Sender: TObject): ByteBool;
var
  data  : LibKeepAliveData;

  function ThreadLibKeepAlive(Parameter : Pointer) : integer;
  begin
    result := 0;
    LibKeepAliveData(Parameter^).result := KeepAlive(); // DLL Call...
  end;
begin
  if ExpBeginThread(Addr(ThreadLibKeepAlive), Addr(data), gTimeout) then
    result := data.result
  else
    result := false;
end;

Mlg Mike