Danke für den Hinweis, aber ohne ShortString geht es bei mir nicht.
Das deutet eigentlich immer mehr darauf hin, dass es kein PChar sondern ein PAnsiChar ist. Und das casten auf ShortString könnte hier zum Datenverlust führen, da ShortString ein AnsiString[255] ist. Ich würde die Deklaration auf PAnsiChar ändern und den Cast auf AnsiString.
Delphi-Quellcode:
function svnrevision(Path: PAnsiChar): Integer;
stdcall;
var
svn: ISubWCRev;
begin
svn := CoSubWCRev.Create;
try
svn.GetWCInfo(WideString(AnsiString(Path)), True, True);
Result := StrToInt(
svn.revision);
finally
svn :=
nil;
end;
end;
Gruß, Chris