прблема с вызовом длл
Добавлено: 14 окт 2005, 15:15
товариши такй вопрос .
я сгенерил такой длл.
CPDrv in '..\..\..\Mycomponent\MyLIb\Mylib\COMdrv32from inet\CPDrv.pas';
var
comm321: TCommPortDriver;
function StartCom(mn:integer):integer; export;stdcall;
begin
if Comm321=nil then
begin
Comm321:=TCommPortDriver.create(nil);
comm321.BaudRate:=br19200;
comm321.DataBits:=db8BITS;
comm321.StopBits:=sb1BITS;
comm321.SwFlow:=SFNone;
comm321.Parity:=ptNone;
comm321.Port:=pnCom1;
end;
if (mn=1) and (comm321.connect=true )then
begin
comm321.Connect;
StartCom:=1 end
else
StartCom:=0;
end;
exports
StartCom name 'ujk';
при загрузке с другого прилдожения
пишет чтo
access violation at adress 00DF3243.
Write of adress 01AC5535
че с єтим делать и как дальше жить ?
я сгенерил такой длл.
CPDrv in '..\..\..\Mycomponent\MyLIb\Mylib\COMdrv32from inet\CPDrv.pas';
var
comm321: TCommPortDriver;
function StartCom(mn:integer):integer; export;stdcall;
begin
if Comm321=nil then
begin
Comm321:=TCommPortDriver.create(nil);
comm321.BaudRate:=br19200;
comm321.DataBits:=db8BITS;
comm321.StopBits:=sb1BITS;
comm321.SwFlow:=SFNone;
comm321.Parity:=ptNone;
comm321.Port:=pnCom1;
end;
if (mn=1) and (comm321.connect=true )then
begin
comm321.Connect;
StartCom:=1 end
else
StartCom:=0;
end;
exports
StartCom name 'ujk';
при загрузке с другого прилдожения
пишет чтo
access violation at adress 00DF3243.
Write of adress 01AC5535
че с єтим делать и как дальше жить ?