Voice-/Sprach-Chat

[Aphton]

Joa, hab ich vergessen.. Ist nur ein kleiner WinSock Wrapper..

[onepiecefreak2]

Danke erstmal dafür Aphton.

Nun mein 2. Problem mit deiner Annwendung. Ich versuche im Moment alles aufzuspalten, um deinen Code über 2 separate Formen, eine für den Server und eine für den Client, zu packen. Bis auf das Hauptprogramm, an dem ich gerade sitze. In diesem befindet sich diese Zeile:
if Client.ReceiveLength > 0 then und diese:
if Accept.ReceiveLength > 0 then Deren Bedeutung ist mir durchaus bewusst, aber das Programm meint zu diesen Zeilen folgendes:
[Fehler] Unit1.pas(242): Undefinierter Bezeichner: 'ReceiveLength'

Ich habe deinen Code bis jetzt 1:1 übernommen und ihn auch schon mehrmals durchgeschaut. Es gibt keine Deklaration für ReceiveLength. Zumal ja nichts ungewöhnliches, da ReceiveLength zu einem Befehlaufruf gehört. Aber warum kennt Delphi diesen Befehl nicht? Oder funktioniert ReceiveLength nur in einer Konsolenanwendung?

Danke im Vorraus.

P.S: Liegt es an der Samplerate von 'nur' 11025, dass der Ton ruckelt? Ich habe es mal mit mir selbst getestet (da ich mich nämlich auch selbst hören kann ^^) und habe festgestellt, dass es hier und da einfach mal zu Aussetzern kommt. Das sind sicher diese verlorenen Daten, die ja vermieden werden sollen.

[Sir Rufo]

Wirf einen Blick in die aphtonSocket.pas, dann springt es dich an ...

[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.

[Aphton]

Zitat von onepiecefreak2:

P.S: Liegt es an der Samplerate von 'nur' 11025, dass der Ton ruckelt? Ich habe es mal mit mir selbst getestet (da ich mich nämlich auch selbst hören kann ^^) und habe festgestellt, dass es hier und da einfach mal zu Aussetzern kommt. Das sind sicher diese verlorenen Daten, die ja vermieden werden sollen.

Der Ton sollte nicht ruckeln, vorallem deswegen, weil zwei Puffer per WaveIn abwechselnd an das System zur Aufnahme überreicht werden - das ganze in nem Thread völlig ungestört.
Vlt hast du da ja etwas geändert, könnte daran liegen.

[Perlsau]

[off topic]

Wie war da jetzt nochmal?

Zitat von Aphton:

Ich versteh nicht, warum das jeder so verkompliziert. Ist im Grunde doch ganz einfach - Windows bietet einem bereits alles an, was man braucht: Sockets + WaveIn/WaveOut Funktionen

Ich meine, schön und gut, du lieferst ihm eine fertige Lösung, für deren Verwendung und Einsatz der TE nix weiter dazulernen und die er auch nicht verstehen muß – wenn sie denn funktionieren würde. Ob das nachhaltig ist, darf bezweifelt werden ...

Da fragt man sich doch öfter mal, worum's eigentlich geht: Daß der Fragesteller eine Lösung erarbeiten kann oder daß sich Hilfsbereite gegenseitig im Anbieten der besseren Lösung ausstechen. Was glaubst du wohl, weshalb der TE nun auf deine Lösung eingeht? Ganz einfach: Weil der glaubt, das ohne weiteren Hirnschmalz einsetzen und als eigene Lösung ausgeben zu können – er nimmt einfach den Weg des scheinbar geringsten Widerstandes. Also ich bin da jetzt endgültig raus ...

[/off topic]

[Aphton]

Zitat von Perlsau:

[off topic]

Wie war da jetzt nochmal?

Zitat von Aphton:

Ich versteh nicht, warum das jeder so verkompliziert. Ist im Grunde doch ganz einfach - Windows bietet einem bereits alles an, was man braucht: Sockets + WaveIn/WaveOut Funktionen

Ich meine, schön und gut, du lieferst ihm eine fertige Lösung, für deren Verwendung und Einsatz der TE nix weiter dazulernen und die er auch nicht verstehen muß – wenn sie denn funktionieren würde. Ob das nachhaltig ist, darf bezweifelt werden ...

Da fragt man sich doch öfter mal, worum's eigentlich geht: Daß der Fragesteller eine Lösung erarbeiten kann oder daß sich Hilfsbereite gegenseitig im Anbieten der besseren Lösung ausstechen. Was glaubst du wohl, weshalb der TE nun auf deine Lösung eingeht? Ganz einfach: Weil der glaubt, das ohne weiteren Hirnschmalz einsetzen und als eigene Lösung ausgeben zu können – er nimmt einfach den Weg des scheinbar geringsten Widerstandes. Also ich bin da jetzt endgültig raus ...

[/off topic]

Wo bleibt hier die ~"Unschuldsvermutung"?
Wer sagt außerdem, dass man nur durch Erarbeiten einer Lösung etwas lernen kann? Man kann genauso gut auch durch das analysieren einer Lösung etwas - oder, wenn man Neuling ist, viel mehr lernen. Das kann ich zumindest von mir behaupten!
Ob man es tut oder nicht, ist einem selbst überlassen - nicht dir. Ob der TE was lernt oder nicht, wird auf langer Sicht ihn positiv/negativ beeinflussen.

Ich war übrigens lange Zeit deiner Ansicht, dass hat sich aber geändert - ich weiß vorallem wegen meiner Uni, dass man von Lösungen auch etwas lernen kann. Viele Sachen sind vlt. zu trocken und man kann sich praktisch nichts drunter vorstellen, bis einem gezeigt wird, dass man z.B. damit alles so anstellen kann. Dann machts klick. Danach kann man nochmal zurück zur Theorie und versteht dann einige Definitionen usw. viel besser.
Man darf das ganze nicht als eine Einbahnstraße sehen..

Achja, noch etwas war mir hier auf der DP aufgefallen ist - ist also nicht an dich speziell gerichtet, aber als Beispiel nehm ich da mal etwas von dir:

Zitat von Perlsau:

Jetzt soll's plötzlich ein Video-Chat sein? Junge Junge ... Jetzt mach doch mal langsam und gehe einen Schritt nach dem anderen

Zunächst einmal, es ist mir bewusst, dass du davon ausgehst, dass der TE einfach ein "Neuling" ist. Der Rat ist auf erstem Blick vlt. gut gemeint - es hilft den meisten Neulingen auf dem Boden zu bleiben usw.
Das ganze ist trotzdem richtig demotivierend und herablassend. Du kannst nie genau wissne, wozu jemand in der Lage ist.
Ich bin in letzter Zeit öfters auf gamedev unterwegs und da tauchen auch immer Threads auf wo dann gefragt wird, wie bestimmte eig. rel. komplexe Rendertechniken implementiert werden können. Da sind die ersten Meldungen nicht "Junge Junge".. Die gehen da direkt auf die Theorie ein und erklären grob alle Schritte, die gemacht werden müssen, um das Ziel zu erreichen. Ganz egal, wie komplex das Thema ist und wie "grün" der TE klingt.
Verlinkt wird auch, ohne vorher die Person zu beschimpfen, dass nicht ordentlich gesucht wurde. Und siehe da, nach einigen Tagen sieht man dann im selben Thread schöne Resultate und jeder ist zufrieden! Ich finde das viel professioneller!
(Ok, komplette Lösungen wie von mir, werden vlt nicht oft gepostet Das tue ich aber, weil mir langweilig ist, ich Zeit habe und am Thema interessiert bin..)

Ich kann mich noch genau erinnern, wie einer meinte, ich sollte es mit dem Programmieren sein lassen, als ich hier eine meiner ersten Projekte veröffentlichte. Das habe ich bis dato nicht vergessen! Ich finde solches Verhalten unakzeptabel.
Mich kotzts fast schon an >.> Wollt ich mal kurz loswerden Daher meine Bitte - seid nicht so.
(Hiermit will ich übrigens nicht sagen, dass ich HÜs für andere machen OK finde. Da sollte ein feiner Unterschied erkennbar sein.)

/Offtopic

[jobo]

Zitat von Aphton:

Ich finde solches Verhalten unakzeptabel.
Mich kotzts fast schon an >.> Wollt ich mal kurz loswerden Daher meine Bitte - seid nicht so.
/Offtopic