Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
2. Jan 2014
Ein Versuch noch:
Function GetVarInfo(hFile, iVar:Integer; varname: PAnsiChar; var varinfo: integer): Integer;stdcall;
external 'c:\test\io32.dll' name 'GetVarInfo';
...
var
hFile, iVar: integer;
varname2: AnsiString;
varinfo: integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
2. Jan 2014
Wo steht da etwas von Ausgabeparameter? Ich sehe da char* varName, also einen Zeiger auf ein Zeichen, was PAnsiChar/PWideChar entspricht. Lass also das out weg und versuch es noch einmal wie gezeigt, das sollte nach meinem Dafürhalten funktionieren.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
2. Jan 2014
Deshalb ja meine Frage nach dem out. Was passiert, wenn Du das weglässt?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by DeddyH,
2. Jan 2014
Bist Du sicher, dass das tatsächlich ein Ausgabeparameter ("out") ist? Normalerweise würde ich es ungefähr so versuchen:
var
varname2: AnsiString;
begin
SetLength(varname2, <Längenangabe>);
fehler:=getvarinfo(hFile,iVar,PAnsiChar(varname2),varinfo);
SetLength(varname2, StrLen(PAnsiChar(varname2)));