Alternative zu While

[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:

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:

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!

[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

[p80286]

Zitat von Bbommel:

sodass dann alles, was der Benutzer zwischenzeitlich geklickt und verschoben hat, verarbeitet wird.

und in dem "alles" ist dann der Hund begraben. Da bekommst Du unter Umständen Multitasking durch die Hintertür.

Wenn Du mit mehreren Threads arbeitest, dann ist (sollte) Dir bewußt, daß du auf mehreren Hochzeiten tanzt. Ohne Threads arbeiten verleitet da zum schludern.

Gruß
K-H