himitsu, also das habe ich jetzt so gemacht.
Delphi-Quellcode:
function Verschluesseln(Passw: string; Ungerade: Boolean; Spiegeln: Boolean): string;
stdcall; external 'PasswSafeDLL.dll' Index 1;
function Entschluesseln(Passw: string; Ungerade: Boolean; Spiegeln: Boolean): string;
stdcall; external 'PasswSafeDLL.dll' Index 2;
procedure TForm1.Button3Click(Sender: TObject);
var
s,Txt: string;
begin
s:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Txt:=Verschluesseln(s,false,true);
Label1.Caption:=Txt;
Label2.Caption:= Entschluesseln(Txt,false,true);;
end;
der 1,3,5. Durchlauf des Click-Ereignis läuft wie gewünscht beim 2,4,6. ergibt es eine Zugriffsverletzung im
DLL-Modul, wenn ich die Routinen innerhalb des Click-Ereignis mehrmals aufrufe, gibt es keine Zugriffsverletzung.
ich habe die Routinen aus der
DLL in das Hostprogramm übertragen, dann läuft alles perfekt.
Es kann also nicht falsch sein
Ich habe das Programm vor ca. 10 Jahren ohne eure Hilfe geschrieben, es lief gut und jetzt klappt plötzlich nichts mehr. (7-zip32.dll)