Wieder mein leidiges Array und pointer problem.
Delphi-Quellcode:
Type
PWinampVisInfo = ^TWinampVisInfo;
TWinampVisInfo = Packed record
Title: PChar;
FileName: PChar;
PlaylistLength: integer;
PlaylistPos: integer;
Pos, Len: QWORD;
VisHeader: PWinampVisHeader;
VisModule: PWinampVisModule;
Init, Init2, Rendering: boolean;
DllInstance: THandle;
WinHandle: THandle;
PluginId: DWORD;
ParentHandle: DWORD;
Vis_Atom_Emu: ATOM;
Vis_Window_Emu: HWND;
VisInfoCount: Integer;
end;
Var
VisInfo: array [1..5] of PWinampVisInfo;
Beim erstellen des neuen Threads
ThreadHandle := BeginThread(nil, 0, @WinampVisWin, VisInfo[VisWinCounter], 0, ThreadId);
Bleibt die Anwendung in der Function
function WinampVisWin(VisInfo : array of PWinampVisInfo): HWND;
beim ersten begin stehen und gibt ein
AV aus.
Was ist in der Functionszeile verkehrt?
gruß