Obsluga kamery

;( czy ma może ktoś pomysl jak wyświetlić w "oknie" programu obrac podłączonej kamerki internetowej. 2 pytanko: jak można by bylo przesłać obraz za pomosą np. INDY. ???? :)

Zobacz komponenty DSPack, w którymś przykładzie jest pokazywanie na oknie obrazu z kamerki.

A gdzie chcesz przesyłać ten obraz? Możesz DSPackiem zrobić zdjęcie, zapisać je i wysłać INDYm.

thx za odpowiedzi.... :) , jestem w trakcie tworzenia komunikatora (klient- serwer-klient), sprawdze tego DSpacka

DS Pack sie sprawdził, ale mam problemy z przesłaniem jpega, wysylam pakiet:

TPackageVideo = record
                 UserNick,
                 Txt : string[255];
                 JP:TJPEGImage;

a dochodzą tylko stringi i jpeg sie gdzieś gubi, wysyłąm poleceniem :writebuffer

procedurka z serwera:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var

  DestThread: TIdPeerThread;
  i: Integer;
  DestConnection: WConnection;
  Package, NewPackage: TPackageVideo;

begin

  begin
    AThread.Connection.rea.ReadBuffer (Package, SizeOf (Package));
     NewPackage := Package;
       with ConnectionLst.LockList do
        try
          for i := 0 to Count-1 do
        begin
            DestConnection := Items[i];
            DestThread := DestConnection.Thread;
            DestThread.Connection.WriteBuffer(NewPackage, SizeOf(NewPackage), True);
          end;
        finally
          ConnectionLst.UnlockList;
        end;
      end;
 end;

[!!!] jak ktoś wie co jest źle to piszcie, pozdrawiam