Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Zugriffsverletzung beim Aufruf einer c.dll (https://www.delphipraxis.net/157852-zugriffsverletzung-beim-aufruf-einer-c-dll.html)

RPRI 27. Jan 2011 09:44

Delphi-Version: 5

Zugriffsverletzung beim Aufruf einer c.dll
 
Hallo Delphi Guru's !

Ich haben folgendes Problem.

Ich rufe bei einem Click Ereignis eines Button's ein Funktion eier C.dll auf.
Dies funktioniert einwandfrei
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
VAR
  VarPointer  : POINTER;
  varInfo     : VARIABLE_INFO;
begin
    M1_Read ( MyTarget, varInfo, VarToRead, VarPointer, SVI_Debug );
    Edit1.Text := MakeString ( VarPointer, varInfo );
end;
Ich möchte nun zyklisch mit einem Timer diese Funktion alle 500ms aufrufen.
Dabei bekomme ich schon beim ersten Aufruf eine Zugriffsverletzung in der C.dll.
Was mir aufgefallen ist, daß der VarPointer bei Aufruf mit Fehlermeldung nur 3Stellig ist ( $113 )
beim funktionierenden Aufruf aber 6Stellig ( $12F584 ).
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
VAR
  VarPointer  : POINTER;
  varInfo     : VARIABLE_INFO;
begin
    M1_Read ( MyTarget, varInfo, VarToRead, VarPointer, SVI_Debug );
    Edit1.Text := MakeString ( VarPointer, varInfo );
end;
Hat jemand eine Erklärung was ich falsch mache?
Es ist ja der identische Code!

Danke für Eure Hilfe
Rainer

WM_CLOSE 27. Jan 2011 11:20

AW: Zugriffsverletzung beim Aufruf einer c.dll
 
tritt das timer ereignis "zu früh" auf d.h. ist der Timer schon von vorn herein aktiv oder wird er woanders enabled? vieleicht den Timer erst im ButtonClick enablen.

RPRI 27. Jan 2011 12:11

AW: Zugriffsverletzung beim Aufruf einer c.dll
 
Hallo WM_CLOSE,

der Timer ist Disabelt und wird erst mir einem Button Enabled.

Danke und Gruß
Rainer


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:45 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz