Hallo,
worauf weißt mich die Meldung: "Invalid Pointer Operation." hin?
Ich hab folgendes versucht:
Delphi-Quellcode:
interface
function Funktion(
Name:
String):
String;
stdcall;
implemantation
function Funktion(
Name:
String):
String;
stdcall;
external '
DLL.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Funktion(Edit2.Text);
end;
In der
DLL.dll
Delphi-Quellcode:
function Funktion(Name: String): String; stdcall;
var
Zeichenkette: String;
begin
Result := Zeichenkette;
end;
export
Funktion;
Also die Zeichenkette ist richtig und wird auch ausgegeben. Ich erhalte halt nur noch die Fehlermeldung. Auf den Service möchte ich aber verzichtn.
Ich bin dankbar für jeden Ansatz und jegliche Lösungsvorschläge.
mfg
freak