Hola a todos,
estoy intenatndo recibir paquetes de una camara IP y no hay manera
Lo estoy intentando de la siguiente manera
Código Delphi
[-]
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Web.Win.Sockets,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Client: TIdTCPClient;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
Client.Host := 'rtsp://[USUARIO]:[CONTRASEÑA]@192.168.1.64/Streaming/Channels/1';
Client.Port := 554;
Client.Connect;
Client.IOHandler.Writeln('OPTIONS * RTSP/1.0');
Client.IOHandler.Writeln('CSeq: 1');
Client.IOHandler.Writeln('');
s := Client.IOHandler.ReadLn;
Memo1.Lines.Add(s);
s := Client.IOHandler.ReadLn;
Memo1.Lines.Add(s);
end;
end.
per se queda parado en el connect
la ruta del host es correcta, ja que por el programa VLC funciona
Alguna idea?