Hallo!
Hab ein Problem mit dem Einbinden von
dll's, will eine zum Ladezeitpunkt einbinden:
Laden(extra
Unit):
Delphi-Quellcode:
unit dlls;
interface
procedure start;
implementation
procedure start;
external '
Weg.dll';
end.
aufruf der procedure start:
Delphi-Quellcode:
procedure TForm1.MausPosition(Sender:TObject);
begin
a:=StrToInt(Edit2.Text);
if a=1 then begin
Form2.Edit5.Text:=IntToStr(Mouse.CursorPos.X);
Form2.Edit6.Text:=IntToStr(Mouse.CursorPos.Y);
Form1.Maus2(Form1);
Form1.Image1.OnClick:=nil;
Form1.Image1.OnMouseMove:=nil;
Form1.setzen(Form2.Edit3.Text,Form2.Edit4.Text,Form2.Edit5.Text,Form2.Edit6.Text);
dlls.start; //Hier wird die Prozedure aufgerufen!!!!!
end;
if a=0 then begin
Form2.Edit3.Text:=IntToStr(Mouse.CursorPos.X);
Form2.Edit4.Text:=IntToStr(Mouse.CursorPos.Y);
Edit2.Text:='1';
end;
end;
Folgender Fehler tritt auf:
acess violation at 0x7c947a50: write of adress 0x00030d28
Wenn ich jetzt das "dlls.start" entferne, funktioniert alles!
Die Prozedure start gibt es in der
dll und wird auch exportiert!