Hallo,

ist es möglich die Oracle Session und Abfrage in einen Thread auszulagern, damit die Applikation während des Zugriffs nicht einfriert?

Bisher habe ich das in thread.execute ausgelagert, war aber leider nicht von Erfolg gekrönt.

Gruss

Mc

Zitat von mcinternet:

Bisher habe ich das in thread.execute ausgelagert, war aber leider nicht von Erfolg gekrönt.

Definieren Erfolg! Absturz/Anwendung blockiert/...

Startest du denn auch den Thread korrekt? Zeig mal deine Verwendung dieses Threads im Quellcode

Ich kenne die ODAC's nicht, kann es sein dass mglw. ein benötigtes Coinitialize fehlt?

Hier mal der Quelltext

zusammenfalten · markieren

Delphi-Quellcode:

  TMyThread = class(TThread)
     procedure execute; override;
  end;

var
  FrmMain: TFrmMain;

  MThread : TMyThread;

implementation

{$R *.dfm}

procedure TFrmMain.btn_disconnectClick(Sender: TObject);
begin
  OraSession.Disconnect;
  MThread.Terminate;
end;

procedure TFrmMain.But_connectClick(Sender: TObject);
begin
  MThread := TMyThread.Create;
  MThread.FreeOnTerminate := true;
  MThread.execute;
end;

procedure TMyThread.Execute;
begin
   FrmMain.OraSession.Connect;
   FrmMain.fncsleep.ParamByName('i_seconds').AsInteger:=4; // Funktion die einfach nur x-Sek. nix tut
   FrmMain.fncsleep.Execute; // (Sleep auf Oracle Seite) - Die Form darf dabei nicht einfrieren
end;

Gruss Mc

Du verwendest keinen Thread wenn du die Execute-Methode direkt aufrufst!
Und von einem Thread darfst du auch nicht auf GUI/VCL-Komponenten der Hauptanwendung zugreifen.
Du musst in deinem Thread eine eigene Connect + Query-komponenten erstellen und dann diese im Thread verwenden.

Zitat von Bernhard Geyer:

Du verwendest keinen Thread wenn du die Execute-Methode direkt aufrufst!
Und von einem Thread darfst du auch nicht auf GUI/VCL-Komponenten der Hauptanwendung zugreifen.
Du musst in deinem Thread eine eigene Connect + Query-komponenten erstellen und dann diese im Thread verwenden.

Danke - hatte sich ein Denkfehler zum Thema Threadhandling eingeschlichen!
Problem behoben

Gruss
Mc