🚀 go-pugleaf

Hello

Did you ever get this sorted out?
I get exactly the same effect when tring to call the mailsock.dll supplied
with IB. ie, the designer (or agent) simply freezes.

I'd be grateful if you could tell me how you fixed it (if indeed you did!)

Regards
Jeremy Burges


 
> Hi,
>
> I've developed a DLL using Borland Delphi 3. I'm trying to call the
> one and only function in the DLL. Everything works fine if I call
> the DLL from a Delphi program (that I've developed to test the
> DLL), but if I try to call the DLL from IntraBuilder the Designer
> crashes. Does anyone know why this happens ?
>
> Does anyone have good experiences using DLLs with
> IntraBuilder ?
>
> --------------- Delphi source ----------------------
> function MakeMyFile( Parameter1: PChar;
>                                 Parameter2: PChar;
>                                 Parameter3: PChar;
>                                 Parameter4: PChar ): integer; export;
> ------------------------------------------------------
>
> --------------- IntraBuilder source ----------------
> extern int MakeMyFile( char*, char*, char*, char*  ) "./MY.DLL"
>
> // {End Header} Do not remove this comment//
> // Generated on 31.07.1998
> //
> var f = new otfileForm();
> :
> :
>    function button1_onServerClick()
>    {
>        var N = 0;
>        N = MakeMyFile( '123', '123', '123', '123' );
>        :
>        :
>    }
> }
> -----------------------------------------------------
>
> Pasi B.
>
>
>


J. Burges

Jeremy Burges wrote:
> 

here is my Delphi DLL that works with Intrabuilder:
// project file
library mcsintra;

uses
  SysUtils,
  Classes,
  mcsintra1 in 'mcsintra1.pas';

exports
 copiacat,readtxt resident;

begin

end.


// unit file
unit mcsintra1;

interface
  uses Windows, DB, DBTables, BDE, forms, mask, SysUtils, StdCtrls,
Classes, Math,
       WinSpool, Printers, Dialogs, Controls;
function copiacat(s:PChar;nome:PChar;d:PChar;n:integer) :PChar; stdcall;
function readtxt(s:PChar) :PChar; stdcall;

var  buff:array[0..10000] of char; //declare static to avoid dynamic
memory problems

implementation

...

function readtxt(s:PChar) :PChar; stdcall;
var nb,fd1,fd2,offs,l,blocksize,filespercat,offset,length:integer;
catname:string;

begin
     ....
     FillChar(buff, SizeOf(buff), #0);
     nb := FileRead(fd1,buff,nbyte);
     FileClose(fd1);
     Result := @buff;
end;

end.


Intrabuilder code:
extern char* readtxt(char*) "mcsintra1.dll";
var txt = readtxt("param");


Hope helps.
Eugenio