type
TInfo = Packed Record
Encoder, Version, Url, Year, Copyright: String[255];
Comments, Lyrics: WideString;
FileSize: LongInt;
end;
PInfo = ^TInfo;
var
function ShowInfo(var FileName: PWideChar; var Info: PInfo): Boolean; external 'info.dll';
A teraz pytanie. Jak pobrać poprzez funkcję ShowInfo, informacje do rekordów?
Czyli ShowInfo('C:\plik.rds',.................);
Próbowałem deklarować
var
TagsData : PInfo;
begin
ShowInfo('C:\plik.rds',TagsData);
end;
ale kończyło się to na błędzie EAccessViolation.