So nun kam endlich mal der Fehler:
Dies ist die Meldung:
http://xero-network.eu/~simstar/Fehler.jpg
Die Fehlerhafte Code Zeiler ist Diese:
Delphi-Quellcode:
function DoGetSpeakers : pchar;
var
IDs :
Array[0..1023]
of Integer;
Records : Integer;
I , u: integer;
PlayersInfo :
Array[0..1023]
of TtsrPlayerInfo;
ID : integer;
begin
result := '
';
Records := 1024;
try
// >>>>>>>>>>>>>>>>>>>>FEHLER!<<<<<<<<<<<<<<<<<<<<<
DisplayResult(tsrGetSpeakers(@playersInfo, @records) );
//>>>>>>>>>>>>>>>>>>>>>FEHLER!<<<<<<<<<<<<<<<<<<<<<
//if Records > 0 then ;
for I := 0
to Records - 1
do
for u := 0
to high(Player)
do
if Player[u].id = PlayersInfo[i].PlayerID
then
begin
result := pchar(player[u].
Name);
break;
end;
except
On E :
Exception Do
hLog.AddException(E);
end;
//Ende Try Abschnitt
end;
In die TSRemote.dll kann man nicht reinschauen, wird von TS geliefert!
SO ich weiß nicht woran der Fehler liegt!
//
Ich weiß, war ein lesefehler meinerseits, da du das array ja nich dynamisch erstellt hast, sondern festgelegt hast von vornherein!
steht aber auch nen beritrag weiter über deinem!
