Multitasking Interna verstehen

[delphifan2004]

Zuerst schau ich mir Codeproject gründlicher an. Bin da noch dabei. Hatte zunächst nur oberflächlich rein geschaut und nicht sofort gesehen, dass dort die Thread Internals unterhalb der Windows Ebene beschrieben werden. Erst als ich weiter runter gescrollt habe, hab ich das richtig erfasst. Windows Internals ist auch ein guter Tipp. Aber alles nacheinander. Danke für die Link's! Muss mich da erst mal rein arbeiten.

Auf Quelltextebene ist nicht genug für mich, ich brauch da schon die andere Doku mit den Windows Internals. Dennoch danke!

[OT]
Muss mal wieder die aktuelle Version von ReactOS runter laden. Leider läuft ReactOS bisher nicht auf meinem Rechner, obwohl Linux durchaus läuft, ich nutze Knoppix. Und soweit ich weiß hat ReactOS einen Linux Kernel.[/OT]

[TiGü]

Zitat von delphifan2004:

Und soweit ich weiß hat ReactOS einen Linux Kernel.[/OT]

Nee, das verwechselst du gerade mit dem Wine-Projekt.

[delphifan2004]

Zitat von TiGü:

Zitat von delphifan2004:

Und soweit ich weiß hat ReactOS einen Linux Kernel.[/OT]

Nee, das verwechselst du gerade mit dem Wine-Projekt.

Ups. Das wusste ich nicht! Also eigener Kernel dort?

[TiGü]

Ja. Wikipedia gibt nähere Auskunft.

[himitsu]

Jo, Wine und ReactOS nutzen gegenseitig quasi vom Frontend (APIs für die ausgeführten Programme) einge OpenSource-Teile. Auch von Haiku (einem anderen Betriebssystem) und anderen offenen Quellen werden Teile benutzt (alles selbst zu machen zu wollen wäre auch bissl "blöd", für so ein kleines Team) und die API-Definitionen werden "absichtlich" von Windows abgeguckt.
Für die auszuführenden Programme haben Wine und ReactOS ja praktisch das "selbe" Ziel,
blos dass Wine eben "nur" als Übersetzer für Linux arbeitet und ReactOS als eigenständiges Betriebssystem konzeptioniert ist.

Intern quasi alles "neu", aber nach außen soll alles so aussehen wie im Windows, denn schließlich soll es "kompatibel" sein.
Stell es dir z.B. fast ein Bissl wie MariaDB gegen MySQL vor.


Auch wenn also die APIs für's Multitasking/Threadding/... abgeguckt wurden, kann es intern funktionell "ähnlich" arbeiten, aber kann/wird/muss es intern natürlich anders implementiert sein, da es ja kein 100%-Klon sein soll/darf.


PS: Wer wirklich "mehr" wissel will, der sollte Wiki auch mal in anderen Sprachen fragen,
da es meistenst keine Übersetzungen, sondern eigenständige Artikel sind, die überall unterschiedlich ausführlich sind. (und da es z.B. mehr Englischsprachige als Deutschsprachige gibt .....)

[delphifan2004]

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.

[TiGü]

Immer dieses Rumraten und "Wo steht denn das und dies, ich weiß nicht wie man danach sucht"?

Einfach mal IDE auf und machen, zack zack zack! *Peitschen-Smiley*

Hier, der Bequemlichkeit halber musst du das nur kopieren.
Und nein, der Aufruf von MessageBox hat nichts mit der VCL zu tun, das ist der direkte Aufruf auf die WinAPI-Funktion (https://docs.microsoft.com/en-us/win...ser-messagebox).

Ja, das ist ein Konsolenprojekt.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils,
  Windows;

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;

begin
  try
    RunThread;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.