🚀 go-pugleaf

Delphi XE2
ZEOS 7.0.3


Zapytanie nie dotyczy baz danych dlatego tutaj.

Czy ZEOSY są bezpiecznie w wątkach?

na formie leży ZConnecion
Na formie leży Query,DataSource i DBGrid
do DBGrida podpięte jest pobieranie danych w postaci BlobStream

Query := TZQuery.Create(nil);
   try
     Query.Close;
     Query.Connection := ZQPoczta.Connection;
     Query.SQL.Text := 'Select dane,nazwapliku,id from pliki where id=:id;';
     Query.ParamByName('id').AsInteger := StrToInt(tmpf);
     Query.Open;
     if Query.RecordCount>0 then
     begin
       BS := Query.CreateBlobStream(Query.FieldByName('dane'),bmRead);
       TBlobField(Query.FieldByName('dane')).SaveToStream(Stream);
       result:=Query.FieldByName('nazwapliku').Text;
     end;
   finally
     Query.free;
   end;

następnie tworzę wątek

   TPobierzPoczte = class(TThread)
   private
     FZTable1   : TZTable;
     FConnection : TZConnection;
     { Private declarations }
     IdMessage: TIdMessage;
     IdPOP3: TIdPOP3;
     wiadomosc : String;
     FDaneProgram : TDaneProgram;
   protected
     procedure Execute; override;
     procedure PobierzWiadomosci(host : String; user : String;password: 
String; all : boolean=false);
     function ZapiszPlikWBazieFTP(Stream : TStream;filename: 
String):Integer;
     procedure SendWiadomosc;
     procedure RefreshDBGrid;
   public
     constructor Create(CreateSuspended: Boolean;DaneProgram : 
TDaneProgram; Connection : TZConnection); overload;
   end;

i w PobierzWiadomosci
pobieram wiadomości oraz przez Synchronize(...
wykonuję operacje na formie: Odświeżanie DBGrida i dodawanie tekstu do memo

Wszystko jest w porządku gdy nie dotykam DBGrida(w Aplikacji). Widzę 
komunikaty wysyłane z wątku oraz nowe pozycje DBGrida(podczas 
odświeżania z wątku) . Problem pojawia się gdy w wątku pobierane są 
wiadomości a ja w tym czasie zaczynam "na pałę" klikać DBgrida i dostaję 
błąd "SQL Error: lost synchronization with server: got message type "D", 
length..."
wątek główny podaje Błąd: "SQL Error: could not receive data from 
server: Socket operation on non-socket (0x..."
następnie sypią się ACCES violation w ZComponent160.bpl i mozna zabijać 
aplikację.

Z trąd moje pytanie czy ZEOSY są bezpieczne wątkowo ewentualnie jak to 
prawidłowo zrobić?