Overlay bzw. Layer über Video

[Nic2012]

Hi,
für die Wiedergabe von Videodaten eines ComServers verwende ich das TImage in D7. Nachdem das Einzelbild an die TImage-Componente übergeben wurde, möchte ich noch nachträglich eine Linie in den Canvas von TImage zeichnen. Die Linie ist aber nicht zu sehen, das Video aber schon. Woran liegt es ?

Code:

procedure TMain_Form.liveTimerTimer(Sender: TObject);
var pv: TVariantBytes; ms:TMemoryStream; j: TJPEGImage;
begin
  pv := nil;
  liveTimer.Enabled := false;
  try
    ms := TMemoryStream.Create;
    j := TJPEGImage.Create;
    try
      pv := nc.SafeArrayToByteVariants(nc.LiveViewBuffer);
      ms.WriteBuffer(pv[0], Length(pV));
      ms.Seek(0, soFromBeginning );
      j.LoadFromStream(ms);
      Image1.Picture.Bitmap.Assign(j);

      Image1.Canvas.Pen.Color:= clLime;
      Image1.Canvas.Pen.Width := 5;
      Image1.Canvas.LineTo(100,100);
    finally
      pv := nil;
      j.Free;
      ms.Free;
    end;

  finally
    liveTimer.Enabled := true;
  end;
end;

[KarstenK]

Nach dem 1. Aufruf ist der PEN immmer auf Position 100,100

Es fehlt z.B. Image1.Canvas.MoveTo(0,0);

Ansonsten auch die anderen PEN Eigenschaften sauber setzen. (z.B. Style)

[Bummi]

Spätestens beim 2. Aufruf wird die Linie von (100,100) nach (100,100) gezeichnet.
Setze mal ein

Delphi-Quellcode:

Image1.Canvas.MoveTo(?,?);

for das LineTo

[Nic2012]

Oh, das habe ich übersehen, besten Dank.

[Bummi]

:thumb: