Как непрерывно отправлять TBitmap из TIdTCPServer в TIdTCPClient с использованием Indy Components? - PullRequest
Новая
       7

Как непрерывно отправлять TBitmap из TIdTCPServer в TIdTCPClient с использованием Indy Components?

0 голосов
/ 21 февраля 2019

Я знаю, как отправить строку из 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();
    }
}

Это просто не работаетдля меня.

...