Warum stützt mein Programm mit dynamischer DLL ab?

[Aurus]

Hallo marabu


Sorry aber so gut bin nicht und verstehe deine Aussage deshalb nicht.

Wie meinst du das genau?

Delphi-Quellcode:

Hier ein ausschnitt aus der DLL:

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


function Abgleich(DD:PChar; DatGr: Longint):PCHar; export
var
  intAdr  :Longint;
begin
  if ((DatGr <=32768) AND (DatGr >0)) then
  begin
    intAdr :=$0010;
    DD[intAdr]:= Char(intB1);
    result:=DD;    
  end;
end;

function Inhalt(A:Integer):String;export
begin
  if A=2 then Result:='E0000000';             
end;

Function DLLCSCheck(A:PCHar):PChar;export
begin
  Result :=CheckCSDLL(A);
end;

exports
  Abgleich,
  Inhalt,
  DLLCSCheck;

begin
end.

Gruss

Aurus

[edit=sakura] [delphi]-Tags, Leeeeeerzeilen im Code entfernt. Mfg, sakura[/edit]