Question

我有一个应用程序，需要使用TCP / IP连接到服务器，然后仅等待服务器发送数据，并且服务器发送的内容都应保存到文件中。

这是我所做的：

头文件

#ifndef MainH
#define MainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
#include <FMX.Controls.Presentation.hpp>
#include <FMX.StdCtrls.hpp>
#include <FMX.Types.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerStream.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <boost/scoped_ptr.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TIdTCPClient *pTCP;
    TIdIOHandlerStream *IdIOHandlerStream;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall IdIOHandlerStreamGetStreams(TIdIOHandlerStream *ASender, TStream *&VReceiveStream, TStream *&VSendStream);
private:    // User declarations
    boost::scoped_ptr<TFileStream> mFile;
    boost::scoped_ptr<TMemoryStream> mMem;

    void __fastcall StopTcpClick(TObject* Sender);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

和CPP文件：

include <fmx.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner),
                            mFile(new TFileStream(L"C:\\IbsData.txt", fmCreate | fmOpenReadWrite | fmShareDenyWrite)),
                            mMem(new TMemoryStream())
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    pTCP->Connect();
    Button1->Text = L"Stop";
    Button1->OnClick = StopTcpClick;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StopTcpClick(TObject* Sender)
{
    pTCP->Disconnect();
    Button1->Text = L"Start";
    Button1->OnClick = Button1Click;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdIOHandlerStreamGetStreams(TIdIOHandlerStream *ASender, TStream *&VReceiveStream, TStream *&VSendStream)
{
    VReceiveStream = mFile.get();
    VSendStream = mMem.get();
}

我必须注意，IdIOHandlerStream被设置为IOHandler的{{1}}。

问题是，我知道服务器正在发送大量数据，但没有任何内容写入文件。

有人知道为什么吗？

Answer 1

您使用了错误的IOHandler类。

TIdIOHandlerStream使用TStream对象执行I / O。它通常用于重放先前捕获的会话以进行调试，而无需与真实服务器的物理连接。

您需要改为使用TIdIOHandlerStack，它使用TCP / IP套接字连接来执行I / O。这是Indy的默认IOHandler类，因此您甚至不需要创建它的实例¹，如果您不分配自己的实例，TIdTCPClient::Connect()将为您内部创建一个实例。

^{1：除非您需要更高级的用法（例如通过代理连接到服务器等），否则您需要自己的实例，以便可以根据需要对其进行配置。}

对于您要尝试的操作，让TIdTCPClient使用TIdIOHandlerStack，然后在连接到服务器后可以调用TIdIOHandler::ReadStream()方法。传入TFileStream使其读取，并将其AByteCount参数设置为-1，将AReadUntilDisconnect参数设置为True，以便它将连续读取直到套接字连接关闭。

同样，像Indy中的大多数操作一样，ReadStream()会阻塞调用线程直到完成，因此，为了避免阻塞UI，您应该在辅助线程中调用ReadStream()。但是，如果您不想使用线程，则可以将TIdAntiFreeze组件替代地放置在窗体上。

使用TIdIOHandlerStream和TIdTCPClient读取数据流

1 个答案:

您使用了错误的IOHandler类。