Kann da mal schnell jemand drüber schauen und mir sagen, warum

zusammenfalten · markieren

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
var
s1, s2, s3: String;
Liste: TStringList;

begin
s1:='H';
s2:='G0';
s3:='G1';
Liste := TStringList.Create;
Liste:=
    Liste.Add(s1);
    Liste.Add(s2);
    Liste.Add(s3);

result:=Liste;
end;

exports commands;

Das hier ausgibt?!:

markieren

Code:

[Error] Project2.dpr(24): Incompatible types: 'TStringList' and 'Integer'

Ich habe doch s1 - s3 als strings definiert und nicht als integer, wo ist denn das Problem?

Du willst ein Objekt aus einer DLL zurückgeben? Das wird so nichts. Informiere dich mal über "DLL und Objekte".

Zitat von pmros:

zusammenfalten · markieren

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
var
s1, s2, s3: String;
Liste: TStringList;

begin
s1:='H';
s2:='G0';
s3:='G1';
Liste := TStringList.Create;
Liste:= //schau mal hier
    Liste.Add(s1); // und hier
    Liste.Add(s2);
    Liste.Add(s3);

result:=Liste;
end;

exports commands;

Du weist der Stringliste mit dem Namen "Liste" den Rückgabewert der Funktion Liste.Add zu. Und dies ist der Index des eingefügten Wertes, also ein Integer, denn die markierten Zeilen Deines Quelltextes ergeben:

markieren

Delphi-Quellcode:

Liste := Liste.Add(s1);

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Das auch, aber der Fehler ist in hier:

markieren

Delphi-Quellcode:

Liste:=
    Liste.Add(s1);

Liste.Add gibt den Index des neu hinzugefügten Eintrages zurück ( ein Integer) welchen Du dann der Liste zuweisen willst.

Zitat von BadenPower:

Du weist der Stringliste mit dem Namen "Liste" den Rückgabewert der Funktion Liste.Add zu. Und dies ist der Index des eingefügten Wertes, also ein Integer, denn die markierten Zeilen Deines Quelltextes ergeben:

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Gnah, natürlich. Übersehen. Vielen Dank. Und ja, doch. Es funktioniert jetzt. Ich kann die Stringliste übergeben.

Auch wenn ich nicht weiß, ob mein Vorschlag auch nur ansatzweise sinnvoll erscheinen könnte, vermutlich hätte ich es so gemacht:

markieren

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
begin
Result := TStringList.Create;
Result.Add('H');
Result.Add('G0');
Result.Add('G1');
end;

Was soll denn hier passieren?

markieren

Delphi-Quellcode:

Liste:=
    Liste.Add(s1);

Add ist eine Methode von Liste, aber die weist man doch nicht bei dem Aufruf gleichzeitig wieder der Liste zu?

Auch dashier verstehe ich nicht:result:=Liste; mit einem result.AddStrings(Liste); und dem dann zwingend folgende Liste.Free könnte ich ja noch leben.

Zitat von BadenPower:

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Ich als Visionär sehe nur das große Ganze.

Zitat von pmros:

Ich kann die Stringliste übergeben.

Das dürfte aber nur gehen, wenn du die Sharemem.dll einbindest.

Wann, und wie, wenn überhaupt, wird die Stringliste denn wieder freigegeben?

Zitat von Luckie:

Zitat von BadenPower:

Ob das mit der Übergabe funktioniert, wie Luckie moniert, hat ersteinmal nichts mit dem jetzt erzeugten Fehler zu tun.

Ich als Visionär sehe nur das große Ganze.

Dafür war ich mal schneller als mkinzler.

Aber auch der Einwand von nahpets hat seine Berechtigung und sollte berücksichtigt werden.