begin thread und syncronize?

[Luckie]

Punkt 4 kannst du dir sparen.

[richard_boderich]

ok danke leute werd es gleich ma versuchen ;)

vielen , vielen herzlichen dank Luckie und SirThornberry

Gruß Richard

[richard_boderich]

so, ich hab das jetzt mal probiert, nur traegt er jetz nichts mehr ins stringgrid ein.
die routine wird aber definitiv ausgefuehrt, da er die messagebox anzeigt.

ich denke es koennte daran liegen, das mehrere threads versuchen gleichzeitig auf verschiedene
cellen des stringgrid zuzugreiffen. komisch is auch das die vcl kurzzeitig haengt, wenn die
threads laenger arbeiten muessen. ich hab mal probiert waitformultibleobjects Infinite durch
einen zahlenwert zu ersetzten. (100) -> vcl haengt nicht mehrm aber ins stringgrid wird trozdem nichts gezeichnet.

gruß richard

[Robert Marquardt]

Ich habe das gerade mit einer DLL in C und einem Hauptprogramm in Delphi implementiert und es funktioniert problemlos.
LParam nutze ich als einen Zeiger auf eine Struktur. Das geht deshalb gut, da die DLL ja im gleichen Adressraum wie das Programm steht und daher der Zeiger gueltig ist. SendMessage garantiert das der Thread nicht weiterlaeuft und die Struktur veraendert.
Jetzt muss ich nur noch rauskriegen wie ich Threadsynchronisation unter Linux mache, ohne das mein API leidet.

Delphi-Quellcode:

unit BlaMain;

interface

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

type
  TBlaMainForm = class(TForm)
    // deleted
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  public
    BlaDev: Pointer;
    CallbackMsg: ULONG;
    function CallbackEvent(var Msg: TMessage): Boolean;
  end;

var
  BlaMainForm: TBlaMainForm;

implementation

{$R *.dfm}

function TBlaMainForm.CallbackEvent(var Msg: TMessage): Boolean;
var
  I: Integer;
  BlaData: PBLA_DATA;
begin
  // check for message from DLL
  Result := Msg.Msg = CallbackMsg;
  if Result then
  begin
    // LParam of message contains pointer to BLA_DATA structure
    BlaData := PBLA_DATA(Msg.LParam);
    // deleted
  end;
end;

procedure TBlaMainForm.FormCreate(Sender: TObject);
begin
  // deleted

  // hook the message received
  Application.HookMainWindow(CallbackEvent);
  // tell the DLL to send messages when data is received
  // returns the message ID used with SendMessage
  CallbackMsg := BlaRegister(BlaDev, Application.Handle);
end;

procedure TblaMainForm.FormDestroy(Sender: TObject);
begin
  Application.UnhookMainWindow(CallbackEvent);
  // deleted
end;

end.

Sorry, das Programm ist etwas ausgeschlachtet, da das zugehoerige Produkt noch nicht fertig ist.

[Vjay]

Nur zur Anmerkung, die Synchronize-Methode aus dem TThread-Objekt macht auch nichts anderes ;)

[richard_boderich]

ich hab es ja jetz ueber message gemacht, und er synchronisiert jetz auch, traegt aber nix ins stringgrid ein. folglich muss das problem wo anders zu suchen sein ich vermute mal bei waitformultibleobjects

weis nicht ob das richtig ist wenn mehrere treads parallel auf ein vcl object zugreifen

richard