6

Delphi XE2では、TTCPClientコンポーネントを使用してRTSPサーバーと通信しています。試行錯誤の結果、サーバーから応答が返ってこなかったため、プロジェクトを切り替えて、ポート80（RTSPの554ではなく）を介してHTTPリクエストを送信し、ウェブサイト（具体的にはwww.google.com）にリクエストを送信しようとしました。まだ応答がありません。

TTCPClientメインフォーム（Form1）Clientに、と呼ばれるコンポーネント、TMemoと呼ばれるコントロール、と呼ばれるコントロールLog、およびコントロールがあります。コードの関連部分は次のとおりです。TEdittxtHostTBitBtn

サーバーにつなげる

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接続しているサーバーから何も返されません。

私はここで何が間違っているのですか？

参考文献

これらは私が参照しているいくつかのリンクです：

私が使っているカメラはGrandstream GXV3601LL

アップデート

問題はRTSPサーバーにあると結論付け、GrandstreamのWebサイトのフォーラムで質問しました。このコードは他のサーバー接続でも機能します。

4

2 に答える 2

6

これは私にとってはうまくいきます、それはあなたがブロッキングモードにあるかどうかに依存します：

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    TcpClient1: TTcpClient;
    Memo1: TMemo;
    procedure TcpClient1Connect(Sender: TObject);
    procedure TcpClient1Receive(Sender: TObject; Buf: PAnsiChar; var DataLen: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 TcpClient1.BlockMode := bmBlocking;
 TcpClient1.RemoteHost := 'www.google.com';
 TcpClient1.RemotePort := '80';
 TcpClient1.Connect;
end;

procedure TForm1.TcpClient1Connect(Sender: TObject);

var s : string;

begin
 memo1.Lines.Add('connected');
 TcpClient1.Sendln('GET /');
 s := TcpClient1.Receiveln;
 memo1.Lines.Add(S);
end;

end.

編集

これは、RTSPサーバー（この場合はyoutube）を使用した実際の例です。IndyIdTcpClientを使用しました

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Client: TIdTCPClient;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var s : string;

begin
 Client.Host := 'v5.cache6.c.youtube.com';
 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.
于 2012-10-14T21:06:20.400 に答える
2

OnReceiveイベントが呼び出されない理由は、イベントを処理しようとしているような非同期コンポーネントでTTCPClientはないためです。OnReceiveイベントは、古いイベントと同じようには機能しませんTClientSocket.OnRead。OnReceiveイベントはReceiveBuf()メソッド内でのみ呼び出されます（内部でReceiveLn()呼び出されますReceiveBuf()）。OnReceiveイベントに渡されるデータは、ReceiveBuf()メソッドが出力で返すデータと同じです。OnReceiveキャッチ22の状況があります。電話をかける前にイベントを待っていますがReceiveLn()、最初OnReceiveに電話をかけるまでトリガーされませんReceiveLn()。TTCPClient非同期で使用する場合は、を呼び出す必要がありますReceiveLn()イベント内ではなく、タイマーまたはワーカースレッドのいずれかで定期的にメソッドを実行します。OnReceive

このTTCPClientコンポーネントは、Kylixの古いCLXフレームワークの一部です。これはVCLの一部ではなく、FireMonkeyの一部でもないため、使用しないでください。古いTClientSocketコンポーネント（非推奨ですがまだ使用可能です）を使用するか、Indyなどの別のコンポーネントライブラリに変更してください。

于 2012-10-15T21:28:48.803 に答える