🚀 go-pugleaf

W dniu 2012-01-03 13:57, neuron pisze:
> mam funkcje
>
> function GetG:TBitMap;
> begin
>   try
>   // tu tworze okno ale go nie pokazuje F
>    result:= TBitMap.create;
>    result:= F.GetFormImage;
>   finally
>     F.free;
>   end;
> end;
>
>
>   w watku serwera http indy tworze jpega  i robie mu  jpeg.assign(getGr);
>
> Dziala prawidlowo ale co kilkaset, czasami kilka tysiecy wywolan (otwarte
> kilka przegladaek wiec tworzone sa czasem po 34 procesy)   robi end of
> resource albo AV albo blad socket  a pamiec powolutku cieknie - ale duzo
> duzo wolniej niz by to wynikalo z
> objetosci grafiki
>
> Czy nie jest niszczona bitmapa z result czy raczej bedzie to cos nie tak z
> wspolbieznoscia? Dodam ze nei mam w watku (zdarzeni CommandGet) zadnej
> sychchronizacji, zreszta nawet nie mam pewnosci czy indy robi oddzielny
> watek dla kazdego zaptyania ale sadzac po monitorze chyba tak.

Do wielu operacji na bitmapie niezbędny jest Canvas. Dla bitmapy jest to 
Tzw MemoryDC.

VCL ma optymalizację, że po obsłużeniu komunikatów zwalnia wszystkie 
MemoryDC (funkcja FreeMemoryContexts() ). Więc jeśli akurat wątek wtedy 
coś robil na tej bitmapie/jej canvasie, to masz AV i inne cuda.

Sposób jest prosty - zablokować canvas bitmapy na czas operacji w wątku:

     with TBitMap.Canvas do
     begin
       Lock()
       try
         operacje
       finally
         Unlock();
       end;
     end;

-- 
Arivald