English Amiga Board - View Single Post - Easiest way to insert a file into an ADF? (Delphi)

06 March 2008, 19:40

Thanks a lot, checked your source code, but, although it looks so simple, I am still not able to convert it to Delphi...

I need somehow to declare the necessary functions of this C++ dll in Delphi, so I could use them, but I am not able to translate them. The only thing I reached yet is to show version number and date...

Code:

const
   adflib = 'adflibd.dll';
   function adfGetVersionNumber(): PChar; external adflib;
   function adfGetVersionDate(): PChar; external adflib;
 
procedure TForm1.FormCreate(Sender: TObject);
   begin
      Label1.Caption:=adfGetVersionNumber();
      Label2.Caption:=adfGetVersionDate();
      Label3.Caption:=adflib;
   end;

But now I need to inject a file into an ADF with a click of a button. And if I check the docs of ADFLib again, then I wonder how this here

Code:

struct Device* adfMountDev( char* name)

would look in Delphi?

06 March 2008, 19:40	#3
redhair Posts: n/a	Thanks a lot, checked your source code, but, although it looks so simple, I am still not able to convert it to Delphi... I need somehow to declare the necessary functions of this C++ dll in Delphi, so I could use them, but I am not able to translate them. The only thing I reached yet is to show version number and date... Code: const adflib = 'adflibd.dll'; function adfGetVersionNumber(): PChar; external adflib; function adfGetVersionDate(): PChar; external adflib; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:=adfGetVersionNumber(); Label2.Caption:=adfGetVersionDate(); Label3.Caption:=adflib; end; But now I need to inject a file into an ADF with a click of a button. And if I check the docs of ADFLib again, then I wonder how this here Code: struct Device* adfMountDev( char* name) would look in Delphi?