Voice-/Sprach-Chat

[onepiecefreak2]

Also ist der Fehler auch auf die .pas zurückzuführen? Naja, konnt' ich mir ja gleich denken.

[onepiecefreak2]

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 ^^

[Aphton]

Der erste Fehler mit dem Vorzeichen kannste ignorieren, da der Compiler die Datentypen sowieso selber anpasst. Das sollte kein Fehler sondern eine Warnung sein.


Alle folgenden Fehler basieren darauf, dass du die aphtonSocket Pascal-Datei nicht in der Uses hast bzw. auch nicht im selben Ordner.