在 Delphi XE2 中,我使用该TTCPClient
组件与 RTSP 服务器进行通信。经过反复试验,没有从服务器得到响应,我将项目切换为通过端口 80(而不是 RTSP 的 554)发送 HTTP 请求,并尝试向网站(特别是 www.google.com)发送请求。我仍然没有得到任何回应。
我TTCPClient
在主窗体 ( Form1
) 上有一个名为的组件Client
、一个名为 的TMemo
控件Log
、一个TEdit
名为的控件txtHost
和一个TBitBtn
控件。以下是代码的相关部分:
连接到服务器
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Client.Active then Client.Disconnect;
Client.RemoteHost:= txtHost.Text;
Client.RemotePort:= '80'; // '554';
Client.Connect;
end;
OnConnect 事件处理程序 (HTTP)
procedure TForm1.ClientConnect(Sender: TObject);
var
S: String;
begin
Client.Sendln('GET / HTTP/1.0');
Client.SendLn('');
end;
OnConnect 事件处理程序 (RTSP)
procedure TForm1.ClientConnect(Sender: TObject);
var
S: String;
begin
Client.SendLn('OPTIONS * RTSP/1.0');
Client.SendLn('CSeq:0');
Client.SendLn('');
end;
OnReceive 事件处理程序
procedure TForm1.ClientReceive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
var
S, R: String;
begin
S:= Client.Receiveln;
while S <> '' do begin
R:= R+ S;
S:= Client.Receiveln;
end;
Log.Lines.Append('> RECEIVED ' + R);
end;
OnError 事件处理程序
procedure TForm1.ClientError(Sender: TObject; SocketError: Integer);
begin
Log.Lines.Append('> ERROR '+IntToStr(SocketError));
end;
该OnReceive
事件永远不会被调用,我连接的任何服务器都没有返回任何内容。
我在这里做错了什么?
参考
这些是我引用的一些链接:
- http://effbot.org/zone/socket-intro.htm
- http://www.ietf.org/rfc/rfc2326.txt
- http://folk.uio.no/meccano/reflector/smallclient.html
- http://www.samsungdforum.com/upload_files/files/guide/data/html/html_3/reference/rtsp_specification.html
我正在使用的相机是Grandstream GXV3601LL
更新
我得出的结论是问题出在 RTSP 服务器上,并在 Grandstream 网站的论坛上提出了问题。该代码确实适用于其他服务器连接。