首页 > 解决方案 > 如何使用 Indy 组件将 TBitmap 从 TIdTCPServer 连续发送到 TIdTCPClient?

问题描述

我知道如何从 TIdTCPServer 发送一个字符串,但我不知道如何将 TBitmap 连续发送到 TIdTCPClient,我使用此代码发送 TStream:

void __fastcall TSystemMain::IdServerSendStream(TIdTCPServer *IdTCPServer, TStream *AStream)
{
    // Send To Client
    TIdContextList *Clients = IdTCPServer->Contexts->LockList();
    try {
        for (int i = 0; i < Clients->Count; i++) {
            static_cast<TMyContext*>(static_cast<TIdContext*>(Clients->Items[i]))->Connection->IOHandler->Write(AStream);
        }
    } __finally
    {
        IdTCPServer->Contexts->UnlockList();
    }
}

这对我来说很简单。

标签: c++builder

解决方案


推荐阅读