1

我有一个应用程序需要使用 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已设置为IOHandlerof pTCP。

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

有谁知道为什么？

4

1 回答 1

2

您使用了错误的 IOHandler 类。

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

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

1：除非你需要更高级的用法，比如通过代理连接到服务器等，那么你需要自己的实例，这样你就可以根据需要进行配置。

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

此外，与 Indy 中的大多数操作一样，ReadStream()会阻塞调用线程直到完成，所以为了避免阻塞你的 UI，你应该调用ReadStream()一个工作线程。但是，如果您不想使用线程，则可以交替将TIdAntiFreeze组件放在您的表单上。

于 2018-11-30T19:04:46.330 回答