So ein paar neue Fehler:
IF ReceiveBuffer.Size >= WaveHdr.dwBufferLength THEN BEGIN
Move(Pointer(Integer(ReceiveBuffer.Memory) + WaveHdr.dwBufferLength)^,ReceiveBuffer.Memory^, ReceiveBuffer.Size - WaveHdr.dwBufferLength);
ReceiveBuffer.Size := ReceiveBuffer.Size - WaveHdr.dwBufferLength;
Fehler: "Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert"
BytesSent := Client.SendBuffer(SendBuffer.Memory^, Min(SND_RCV_SIZE, SendBuffer.Size))
Fehler: "Undefinierter Bezeichner: 'SendBuffer'"
Fehler: "Nicht genügend wirkliche Parameter" (Nach 'SendBuffer.Memory^')
Delphi-Quellcode:
IF Assigned(Client) THEN
BytesSent := Client.SendBuffer(SendBuffer.Memory^, Min(SND_RCV_SIZE, SendBuffer.Size))
ELSE BytesSent := Accept.SendBuffer(SendBuffer.Memory^, Min(SND_RCV_SIZE, SendBuffer.Size));
IF BytesSent > 0 THEN BEGIN
Fehler: ';' erwartet, aber 'IF' gefunden (Dabei waren die letzte und vorletzte Zeile markiert)
Hier nochmal der komplette Code zu den ganzen Fehlermeldungen:
Delphi-Quellcode:
// Extraction of wavehdrs
IF ReceiveBuffer.Size >= WaveHdr.dwBufferLength THEN BEGIN
Move(ReceiveBuffer.Memory^, WaveHdr.lpData^, WaveHdr.dwBufferLength);
Move(Pointer(Integer(ReceiveBuffer.Memory) + WaveHdr.dwBufferLength)^,ReceiveBuffer.Memory^, ReceiveBuffer.Size - WaveHdr.dwBufferLength);
ReceiveBuffer.Size := ReceiveBuffer.Size - WaveHdr.dwBufferLength;
ReceiveBuffer.Seek(0, soFromEnd);
SendToPlayerThread();
END;
end;
procedure processSendBuffer();
VAR BytesSent: Integer;
begin
IF Assigned(Client) THEN
BytesSent := Client.SendBuffer(SendBuffer.Memory^, Min(SND_RCV_SIZE, SendBuffer.Size))
ELSE BytesSent := Accept.SendBuffer(SendBuffer.Memory^, Min(SND_RCV_SIZE, SendBuffer.Size));
IF BytesSent > 0 THEN BEGIN
Move(Pointer(Integer(SendBuffer.Memory) + BytesSent)^,SendBuffer.Memory^, SendBuffer.Size - BytesSent);
SendBuffer.Size := SendBuffer.Size - BytesSent;
SendBuffer.Seek(0, soFromEnd);
END;
end;
Also ich komm mir immer dümmer vor. Ich habe nun aber auch keine Möglichkeit mehr etwas hinzuzufügen, außer Aphton hat noch eine .pas oder so vergessen. Wäre toll, wenn ihr mir bei der Fehlersuche helfen würdet... vorallem Aphton ^^