Delphi indyがストリームをクライアントに送信する

Question

私はindyサーバーで新しく、この単純な作業に苦労しています。サーバーを作成してファイルをアップロードする必要があります。そのサイズは常に128バイトです。その後、誰かがサーバーのホームページを開くと、ファイルは自動的に送信されます。だから、：

1. あなたは、私が127.0.0.1を設定していることがわかります下に（ディスク上のファイル（128バイトである1）
2. ブラウザを開き
3. Firefoxの
のようなタイプのURLをアップロードします。 798）、Enterを押すと白いページが表示されますが、ファイルのダウンロードを求めるダイアログが表示されます。

私はこれまでのところ、このコードを書かれている：

procedure TForm1.Button1Click(Sender: TObject); 
begin 

// IP = 127.0.0.1:798 (port is 798) 
IdTCPServer1.Active := true; 
Memo1.Lines.Add('Server started at: ' + TimeToStr(Now) + slinebreak); 

end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 

IdTCPServer1.Active := false; 
Memo1.Lines.Add('Server stopped at: ' + TimeToStr(Now)); 

end; 

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); 
var a: TFileStream; 

begin 

    a := TFileStream.Create('C:\Users\defaulr.user\Desktop\datfile.pkm', fmOpenWrite); 
    AContext.Connection.IOHandler.Write(a); 

end; 

これは形式です：

スタートButton1で、エンドButton2です。あなたが見ることができるように、私はファイルをストリームにロードして、ページを開くときに出力として送信しようとしています。これは正しい方法ですか？あなたは、Webブラウザ経由でファイルにアクセスしているので、あなたの代わりにTIdTCPServerのTIdHTTPServerを使用する必要があります

Answer 1

：

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    // IP = 127.0.0.1:798 (port is 798) 
    IdHTTPServer1.Active := true; 
    Memo1.Lines.Add('Server started at: ' + TimeToStr(Now)); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    IdHTTPServer1.Active := false; 
    Memo1.Lines.Add('Server stopped at: ' + TimeToStr(Now)); 
end; 

// TIdHTTPServer.OnCommandGet event handler... 
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; 
    ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); 
begin 
    if ARequestInfo.Document = '/' then 
    begin 
    AResponseInfo.ResponseNo := 200; 
    AResponseInfo.ServeFile(AContext, 'C:\Users\defaulr.user\Desktop\datfile.pkm'); 
    // alternatively: 
    // AResponseInfo.SmartServeFile(AContext, ARequestInfo, 'C:\Users\defaulr.user\Desktop\datfile.pkm'); 
    end else 
    AResponseInfo.ResponseNo := 404; 
end;