IdHttpServerフォームのキャプションは、私は私が前に同様の質問を掲載している知っているが、私はそれは私がこの単純なコードを持って取り組んで取得することはできないのです

Question

を更新しません更新されません

Answer 1

TIdHTTPServerはマルチスレッドコンポーネントです。 TIdContextは、それ自身のワーカースレッドで実行されます。フォームのCaptionを安全に更新することはできません（またはUIで他の操作を行う）ことは、メインスレッドの外部から行うことはできません。 TIdSyncまたはTIdNotifyクラスなど、メインスレッドと同期する必要があります。

ループでReadChar()を呼び出すのは非常に効率が悪く、代理ペアのデータを返すことができないため、Delphi 2009+を使用している場合はエラーが発生しやすくなります。

代わりにこのようなものを使用してください。

type 
    TDataNotify = class(TIdNotify) 
    protected 
    Data: String; 
    procedure DoNotify; override; 
    public 
    constructor Create(const S: String); 
    class procedure DataAvailable(const S: String); 
    end; 

constructor TDataNotify.Create(const S: String); 
begin 
    inherited Create; 
    Data := S; 
end; 

procedure TDataNotify.DoNotify; 
begin 
    frmMain.Caption := Data; 
    frmMain.Memo1.Lines.Add(Data); 
end; 

class procedure TDataNotify.DataAvailable(const S: String); 
begin 
    Create(S).Notify; 
end; 

procedure TfrmMain.srvrConnect(AContext: TIdContext); //idhttpserver on connect event 
var 
    S: String; 
begin 
    AContext.Connection.IOHandler.CheckForDataOnSource(IdTimeoutDefault); 
    if not AContext.Connection.IOHandler.InputBufferIsEmpty then 
    begin 
    S := AContext.Connection.IOHandler.InputBufferAsString; 
    TDataNotify.DataAvailable(S); 
    end; 
end; 

Answer 2

まず、正しい変数に書き込んでいることを確認してください。 frmMainはキャプションを変更するフォームですか？

また、あなたが試みることができる：

procedure TfrmMain.srvrConnect(AContext: TIdContext); //idhttpserver on connect event 
var 
    S,C : String; 
begin 
repeat 
    s := s + AContext.Connection.Socket.ReadChar; 
until AContext.Connection.Socket.InputBufferIsEmpty = True; 
oCaption := S; 
TThread.Synchronize(nil, Self.ChangeCaption); 
end; 

procedure TfrmMain.ChangeCaption; 
begin 
Self.Caption := oCaption; 
Memo1.Lines.Add(oCaption); 
end; 

そして最後に、フォームのキャプションは、改行が含まれている文字列が表示されませんのでS上の最初の行は、空白行でないことを確認してください。