Alternative zu While

[value is NULL]

Hey Leute

Hab irgendwie ein kleines denkproblem ...
Habe ein GUI gemacht, welches die daten von einer Datenbank in eine andere übernimmt.
Dazu lese ich mir aus wieviel records table X hat und gehe dann in enie While schleife rein:

Delphi-Quellcode:

while f < calltaglist.Count do begin
  ... inserts ...
  f := f + 1;
end;

Jetzt habe ich das Problem, das ich dort knapp 600.000 Einträge habe und es natürlich ein bisschen dauert, bis alles übernommen ist.
Während des Imports ist mein Programm quasi "eingefrohren".-

Gibt es eine Möglichkeit meine While zu ersetzen, so dass man das GUI zumindest verschieben kann oder einen Button wie zB abbrechen betätigen kann?

Vielen Dank schon mal

LG

[sirius]

Alternative: Threads

[value is NULL]

ich gebe zu, ich habe bis dato keine Threads benötigt...

Dh. das wäre dann in etwas so vorstellbar?

Delphi-Quellcode:

function inserts(): LongInt; stdcall;
begin
 //Do the inserts ...
end;

var
 ThreadID: DWORD;       //Thread-ID
 ThreadHandle: THandle; //Rückgabewert von CreateThread

begin
 ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@inserts),
 nil, 0, ThreadID);

 if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end.

Kann sein das ich mich jetzt blamiere ;) aber ich hatte davor wirklich noch nichts damit zu tun.

danke trotzdem schon mal

LG

[himitsu]

TThread?

Aber es gibt ja genügend Tutorials für VCL- (TThread) und NonVCL-Threads (CreateThread).
Du darfst nur nicht vergessen, daß du nicht einfach so das DataSet aus der VCL, welches z.B. vielleicht auch noch "aktiv" an irgendeinem Grid hängt, im Thread zu verwenden, da Datasets nicht grade threadsave (gleichzeitige Zugriffe aus unterschiedlichen Threads) sind.


Als Billig-Lösung kann man auch ein paar Application.ProcessMessages in die Schleife einstreuen (nur nicht zu häufig), um der GUI die Möglichkeit zu geben "Messages" zu verarbeiten, über welche z.B. das Verschieben abgehandelt wird. :angle2:

[Jumpy]

600 Tsd. Datensätze ist ja schon was. Vllt. gibt es da generell eine bessere Lösung um die auf einmal aus der einen DB zu holen und in die andere zu "blasen". Kommt natürlich auf die DBs an und was die vllt. für Tools dazu anbieten.

Ansonsten zu Threads:
http://www.delphi-treff.de/tutorials...ds/einleitung/

[value is NULL]

also danke schon mal für die vielen Antworten ...

Habe jetzt viel gelesen aber bin noch nicht wirklich schlauer. Habe mir ein kleines Testprogramm gemacht:

Delphi-Quellcode:

unit testcode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    start: TButton;
    Memo1: TMemo;
    abbrechen: TButton;
    procedure startClick(Sender: TObject);
    procedure abbrechenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  function inserts() : string;

var
  Form1: TForm1;
  ThreadID: DWORD;
  ThreadHandle: THandle;

implementation

{$R *.dfm}

function inserts() : string;
var
  i : integer;
begin
  i := 0;
  while i < 10000 do begin
    Form1.Memo1.Lines.Add('Number '+inttostr(i));
    sleep(1000);
    i := i + 1;
  end;
  EndThread(0);
end;

procedure TForm1.abbrechenClick(Sender: TObject);
begin
  // ?
end;

procedure TForm1.startClick(Sender: TObject);
begin
  ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@inserts), nil, 0, ThreadID);
end;

end.

was müsste ich tun, damit bei TForm1.abbrechenClick der Thread beendet wird bzw. wann weiß ich in startClick wann function inserts fertig ist?

Danke und LG

[Zacherl]

TThread ist hier wirklich viel einfacher. Da kannst du den Thread mit der Methode Terminate beenden. Innerhalb deiner eigentlichen Berechnung prüfst du dann einfach auf die Terminated Eigenschaft. Außerhalb des Threads solltest du dann aber nach der Terminierung noch mit WaitFor auf das Ende des Threads warten, bevor du ihn wieder freigibst.

[value is NULL]

geil flutscht! ;)

Habe folgende schnippsel im Netz gefunden:

Start Thread

Delphi-Quellcode:

Function StartThread(pFunction : TFNThreadStartRoutine; iPriority : Integer = Thread_Priority_Normal; iStartFlag : Integer = 0) : THandle;
var
  ThreadID : DWORD;
begin
  Result := CreateThread(nil, 0, pFunction, nil, iStartFlag, ThreadID);
  if Result <> Null then
  SetThreadPriority(Result, iPriority);
end;

Close Thread

Delphi-Quellcode:

Function CloseThread( ThreadHandle : THandle) : Boolean;
begin
  Result := TerminateThread(ThreadHandle, 1);
  CloseHandle(ThreadHandle);
end;

[himitsu]

Zitat:

Delphi-Quellcode:

function inserts() : string;

Wieso so?

Schau mal wie TFNThreadStartRoutine deklariert ist und wenn da nichts steht, dann schau in der Deklaration der entsprechenden Funktion nach.
Bei dir ist gleich alles komplett falsch ... Parameter, Rückgabetyp und Aufrufkonvention.

Fast immer dann, wenn du solche brutalen Casts machen mußt, welche auch noch Delphis eingebaute Prüfung auf Typsicherheit umgehen, solltest du dir dringend überlegen was du da überhaupt machst und ob du da nicht irgendwelchen Mist baust.

Zitat:

Delphi-Quellcode:

Form1.Memo1.Lines.Add

Und dann greifst du innerhalb deines Threads direkt auf die VCL zu.
Das macht man nicht.
Sowas hat man gefälligst zu synchronisieren! :warn:

[Bbommel]

Ich möchte mal fies in die ganze TThread-Lösung hier reingrätschen. :) Die ist natürlich von der Idee her ein völlig richtiger Ansatz und wenn man sich eh mal mit Threads beschäftigen will, wäre das hier auch ein schönes Ding zum Üben, aber: wenn es nur eine GUI ist, die eh nichts anderes kann, als diese Daten-Migration, und man etwas basteln will, damit die GUI für den Benutzer nicht eingefroren erscheint, dann könnte das gute alte Application.ProcessMessages die einfachere und schnellere Möglichkeit sein, zum Ziel zu kommen.

Man kann alle paar hundert oder auch tausend Durchläufe mal Application.ProcessMessages aufrufen, sodass dann alles, was der Benutzer zwischenzeitlich geklickt und verschoben hat, verarbeitet wird. Auch ein Abbrechen-Button, wenn man dabei eine passende Abbruch-Bedingung für die while-Schleife setzt. Vielleicht hilft das ja weiter, an der richtigen Stelle zu suchen.

Wie gesagt, nichts gegen Threads, fände ich aber hier die einfachere und pragmatischere Lösung.

Bis denn
Bommel