Hi,


ich erstelle in einer DLL einen Thread:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TAnimationThread = class(TThread)
  private
    { Private declarations }
    FWnd: HWND;
    DC : HDC;
    FPaintRect: TRect;
    FfgColor: TColor;
    FInterval: integer;
  protected

  protected
    procedure Execute; override;
  public
    FName : String;
    Image :TBitmap;
    wnd : hWnd;
    procedure Ready;
    constructor Create(barcolor : TColor; name : String);
  end;

{**********************************************************************
  Konstruktor
***********************************************************************}

constructor TAnimationThread.Create(barcolor : TColor; name : string);
begin
  inherited Create(True);
  Application.CreateForm(TSplash2, Splash2);
  Splash2.Show;
  FfgColor := barColor;
  FName := name ;
  //FreeOnterminate := True;
  Resume;
end; { TAnimationThread.Create }

Im TAnimationThread.execute wird eine Form (Splash2) erstellt, die den Benutzer zeigt, dass gerade was gemacht wird (Bitte warten). Auf dieser Form läuft ein einem Panel ein Bitmap von links nach rechts und zurück............

Funktioniert alles wunderbar!

So wird der Thread aufgerufen:

markieren

Delphi-Quellcode:

{* Start-Prozedur *}
procedure DLLWorking(nameP:PChar);stdcall;
var
name:String;
ani : TAnimationThread;
begin
      name:=String(nameP);
      ani := TanimationThread.Create($00556F60, name);
      Application.ProcessMessages;
end;

Zum beenden habe ich diese Prozedur:

markieren

Delphi-Quellcode:

{* End-Prozedur *}
procedure DLLReady(wnd:Hwnd);stdcall;
var
ani : TAnimationThread;
begin
      ani.Ready; <---- schließt die Form!
      ani.Terminate; <----- soll meinen Thread beenden!!?????
end;

Wenn ich die DLL in Delphi ausführe (mit entsprechendem Projekt!) klappt alles ohne Fehler. Wenn ich allerdings das Projekt in Delphi ausführe bekomme ich einen Fehler!

Zugriffsverletzung.......

Danke für die Hilfe!

Sillium

markieren

Delphi-Quellcode:

{* End-Prozedur *} 
procedure DLLReady(wnd:Hwnd);stdcall;
var
ani : TAnimationThread;
begin
      ani := TAnimationThread.Create; //Das vielleicht? Warum ist das Threadobjekt Local deklariert
      ani.Ready; <---- schließt die Form!
      ani.Terminate; <----- soll meinen Thread beenden!!?????
end;

Ani sollte Global deklariert werden und beim 1. Aufruf mit Create erzeugt werden! Da wenn ich das richtig sehe du in DLLReady einen zum 1. nicht erzeugten Thread und zum 2. nicht den mit DLLWorking gestarteten Thread beenden willst.

Florian

Kann man in einer DLL global deklarieren??

In DLLWorking wird mein Thread mit

 ani := TanimationThread.Create($00556F60, name); erstellt!!

Hallo,

stehe immer noch vor dem gleichen Problem!!

Hat vielleicht jemand eine Lösung!

Kann ich in der Funktion DLLWorking ein öffentliches Handle erstellen und an DLLReady übergeben??

Aber wie??

Danke!!