Gdy serwer odbiera wiadomość binarną, wywoływane jest zdarzenie OnBinary. Należy odczytać parametr Data, aby uzyskać odebraną wiadomość binarną.
procedure OnBinary(Connection: TsgcWSConnection; const Data: TMemoryStream);
var
oBitmap: TBitmap;
begin
oBitmap := TBitmap.Create;
Try
oBitmap.LoadFromStream(Data);
Image1.Picture.Assign(oBitmap);
Log(
'#image uncompressed size: ' + IntToStr(Data.Size) +
'. Total received: ' + IntToStr(Connection.RecBytes));
Finally
FreeAndNil(oBitmap);
End;
end;
Domyślnie serwer używa metody neAsynchronous do wywoływania zdarzenia OnMessage, co oznacza, że zdarzenie to jest wykonywane w kontekście głównego wątku, dzięki czemu aktualizowanie dowolnej kontrolki formularza jest bezpieczne wątkowo.
Jeśli serwer odbiera dużą liczbę wiadomości lub konieczne jest kontrolowanie synchronizacji z innymi wątkami, należy ustawić właściwość NotifyEvents na neNoSync. Oznacza to, że zdarzenie OnMessage będzie wykonywane w kontekście wątku połączenia; jeśli więc wymagana jest aktualizacja kontrolek formularza lub dostęp do współdzielonych obiektów, należy zaimplementować własne metody synchronizacji.