Hi!
Ich habe folgendes Problem, ich möchte diesen Code auf die
Indy komponenten übertragen, scheitere aber an der Pointervar und bekomme immer eine Fehlermeldeung!
Wäre sehr nett wenn mir jemand sagen könnte wie ich das anstelle!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var format:pointer;
begin
UDPsock1.RemoteIP:=edit1.text;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
UDPSock1.Start;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ACMWaveIn1.Close;
ACMWaveOut1.Close;
UDPSock1.Stop;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;
procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
begin
UDPSock1.Send(data,size);
end;
procedure TForm1.UDPSock1Recv(data: PChar; delka: Integer; host: String);
begin
ACMWaveOut1.PlayBack(data,delka);
end;
Vielen Dank für alle Antworten!