external-Deklarationen

[Darth_Metaler]

hey ihrs
hab ein Problem, und zwar soll ich in .NET eine Win32-DLL aufrufen.

In der Borland-Hilfe hab ich dazu folgenden Beitrag gefunden:

Zitat von Delphi-Hilfe:

[DllImport('user32.dll')]
function MessageBeep(uType : LongWord) : Boolean; external;

jetzt hab ich folgenden Quellcode...

Delphi-Quellcode:

type
  _1A_Archive = class(System.Object)
  {...}
  [DllImport('A1_Archive4Client.dll', EntryPoint='A1AC_Create')]
  function _Create: Integer; external;
  {...}
end;

...aber mein Compiler meldet mir immer folgende Fehler:

Zitat von Delphi:

[Fehler] A1_Archive4Client_Intf.pas(186): E2169 Felddefinition nicht erlaubt nach Methoden oder Eigenschaften
[Fehler] A1_Archive4Client_Intf.pas(189): E2029 ',' oder ':' erwartet, aber 'CONSTRUCTOR' gefunden
[Fehler] A1_Archive4Client_Intf.pas(186): E2065 Ungenügende Forward- oder External-Deklaration: '_1A_Archive._Create'
[Hinweis] A1_Archive4Client_Intf.pas(186): H2219 Das private-Symbol 'external' wurde deklariert, aber nie verwendet
[Hinweis] A1_Archive4Client_Intf.pas(188): H2219 Das private-Symbol 'public' wurde deklariert, aber nie verwendet
[Hinweis] A1_Archive4Client_Intf.pas(189): H2219 Das private-Symbol 'Create' wurde deklariert, aber nie verwendet
[Fataler Fehler] Archiv4ClientTest.dpr(15): F2063 Verwendete Unit 'A1_Archive4Client_Intf.pas' kann nicht compiliert werden

wisst ihr, woran das liegen könnte? darf ich external vlt nur außerhalb einer Klasse benutzen oder wie?

MfG Pascal

[Darth_Metaler]

Zitat von Darth_Metaler:

darf ich external vlt nur außerhalb einer Klasse benutzen oder wie?

genau das war mein problem, bin selbst drauf gekommen
außerhalb der klasse funzts, auch wenns in VB.NET innerhalb der klasse war...

[Heffalump]

folgendes Beispiel läßt sich mit Delphi 2006 erstellen.

Delphi-Quellcode:

unit Beispiel;

interface

uses System.Runtime.InteropServices;

type
  _1A_Archive = class(System.Object)
  {...}
  [DllImport('A1_Archive4Client.dll', EntryPoint='A1AC_Create')]
  class function _Create: Integer; static;
  {...}
end;

implementation

{ _1A_Archive }

class function _1A_Archive._Create: Integer;
begin
end;

end.