[Delphi/Kylix] Image vernieuwt niet goed

[Verwijderd]

Ik ben bezig met Video For Linux 2. Inmiddels heb ik het eindelijk aan de praat gekregen met kylix.

Alleen er is 1 probleem. Als ik mijn programma heel de tijd achter elkaar laat capturen, zie ik de image (=TImage) vreemd knipperen. Dit komt in ieder geval niet door het te snel uitvoeren van de procedure.


Ik laat deze code in een repeat lus uitvoeren:

Delphi:

  Bitmap := TBitmap.Create;
  try
    with Bitmap do
    begin
      Width := 640;
      Height := 480;
      PixelFormat := pf32bit;
    end;

    Status := __read(fd, PointerBuffer^, 640 * 480 * 4);
    if Status < 0 then
      ShowMessage('Error bij read: ' + IntToStr(errno));

    Move(PointerBuffer^, (Bitmap.ScanLine[0])^, 640 * 480 * 4);

    img_Capture.Picture.Graphic := Bitmap;
  finally
    Bitmap.Free;
  end;

Weet iemand wat de rede kan zijn van dat knipperende effect bij die image? (Het is dus net of je iedere keer ff de image leeg ziet).

(oh ja .....en een doublebuffered property bestaat er niet onder clx)

[Verwijderd]

probeer hetvolgende eens :

Delphi:

  Application.ProcessMessages  // Starten van de message queue

  Bitmap := TBitmap.Create;
  try
    with Bitmap do
    begin
      Width := 640;
      Height := 480;
      PixelFormat := pf32bit;
    end;

    Status := __read(fd, PointerBuffer^, 640 * 480 * 4);
    if Status < 0 then
      ShowMessage('Error bij read: ' + IntToStr(errno));

    Move(PointerBuffer^, (Bitmap.ScanLine[0])^, 640 * 480 * 4);

    img_Capture.Picture.Graphic := Bitmap;
  finally
    Bitmap.Free;
  end;
  Application.ProcessMessages  // einde van de message queue

Dit zou het knipperen kunnen voorkomen.

[Verwijderd]

Nee helaas maakt dat niks uit.

[curry684]

Verwijderd schreef op 06 June 2003 @ 19:14:
(oh ja .....en een doublebuffered property bestaat er niet onder clx)

Wazig, want daar is niets OS-specific aan. Weet je het heel zeker?

Als ie niet bestaat kun je het heel eenvoudig zelf bouwen overigens gezien dat je het ding simpelweg handmatig kunt tekenen in de OnPaint's ipv een TImage te gebruiken (TImage = overhead).

[Verwijderd]

Bedankt, het is gelukt met een paintbox.

En ik heb nog eens goed gekeken, maar doublebuffered is echt niet beschikbaar onder CLX. Het is trouwens ook een property van een WINcontrol.