Ich will gerade das hier durchspieln, um Übung in der Programmierung mit Threads unter Windows zu kriegen. Das ist aus Luckies Thread Tutorioal von Seite 12:
Delphi-Quellcode:
type
TThreadParams =
packed record
Number: Integer;
Text:
String;
end;
PThreadParams = ^TThreadParams;
function ThreadFunc(
tp: PThreadParams): Integer;
var Number : Integer; Text :
string; s :
string;
begin
// Parameter lokalen Variablen zuweisen.
Number := PThreadParams(
tp)^.Number; Text := PThreadParams(
tp)^.Text;
s := ’Zahl: ’ + IntToStr(Number) + #13#10 + ’Text: ’ + Text;
// ExitCode enthält Rückgabewert der Messagebox.
Result := MessageBox(0, PChar(s), ’Thread’, MB_YESNO
or MB_ICONINFORMATION);
// Reservierten Speicher für Parameter wieder freigeben.
Dispose(
tp);
end;
procedure RunThread;
var
tp : PThreadParams;
Thread : THandle;
ThreadID : Cardinal;
ExitCode : Cardinal;
begin
// Speicher für Struktur reservieren.
New(
tp);
// Daten den feldern der Struktur zuweisen.
tp.Number := 42;
tp.Text := ’Die Antwort.’;
// Thread erzeugen.
Thread := BeginThread(
nil, 0, @ThreadFunc,
tp, 0, ThreadID);
// Auf Beendigung des Threads warten.
WaitForSingleObject(Thread, INFINITE);
// Rückgabewert ermitteln...
GetExitCodeThread(Thread, ExitCode);
// ...und auswerten.
case ExitCode
of
IDYES: Writeln(’Benutzer hat "Ja" angeklickt.’);
IDNO: Writeln(’Benutzer hat "Nein" angeklickt.’);
end;
// Thread-Handle schliessen udn somit das Thread-Objekt zerstören.
CloseHandle(Thread);
end;
Wo stehen die Zahlenwerte für die Konstanten IDYES und IDNO? In der
Unit Windows?
Der Grund ist, in der Case Anweisung wird für die Ausgabe Writeln verwendet, in der Threadfunc aber die Messagebox. In einer
VCL Anwendung aber mit writeln hantieren?
Ich will deshalb anstelle der Messagebox eine Funktion unter Verwendung von Readln schreiben, die mir diese beiden Werte erzeugt. Aber dazu brauche ich ja diese Werte. Wenn die in der Windows
Unit stehen passt alles. Wenn nicht, wo stehen sie dann? Dann kann ich für meine Thread Gehversuche eine Konsolenanwendung anlegen.