APPLET przenieść do DELPIH

Z powodu <ort>baraku </ort><ort>pomysów </ort>jak rozwiązać <ort>ponirzszy </ort>problem zwracam sie o pomoc.

W jaki sposób przenieść poniższy aplet do delphi tak by np. szło obraz z kamerki oglądać np. na TPanel.

Największy pic polega na tym ze ten parametr który jest pogrubioną czcionką odpowiada za wyświetlenie kanałów ( inna cyfra inny kanał )

<APPLET codeBase=http://216.127.90.5:3000/frames/
height=400 width=500 align=top code=spvideo><PARAM NAME="host" VALUE="216.127.90.5"><PARAM NAME="port" VALUE="6969"><PARAM NAME="channel" VALUE="26"><PARAM NAME="sessionid" VALUE="9172974d98d46b82b465ee99bbb933ae"><PARAM NAME="mode" VALUE="free"></APPLET>

uzyj komponentow DSPack
jest tam niejedno demo jak pobierac obraz z kamery i jak ten obraz oprogramowac

Hej ;)

Najprostrzy sposób to:

1. Umieść kod strony w zasobach (po to żeby było elegancko :) )

2. Zrób procedurę która będzie wczytywała ten kod z zasobów do zmiennej globalnej (KodStrony:TStringList) np:

PROCEDURE TForm1.WczytajZasoby;
var
 res :TResourceStream;
Begin
 KodStrony:=TStringList.Create;
 res:= TResourceStream.Create(0,'KodStrony',RT_RCDATA);
 KodStrony.LoadFromStream(res);
 res.Free;
End;

3. Zrób procedurę zmiany kanału a zarazem uruchamiającą przeglądarkę wczytującą tak spreparowany kod np:

PROCEDURE Form1.Chanel(kanal :String);
Begin
  KodStrony.Strings[4]:= ' NAME=channel VALUE='+ kanal +'<PARAM NAME=sesionid '; 
//w powyższej linii usunołem cudzysłowia ponieważ i tak aplet zadziała bez tego, a linia w kodzie wygląda czytelniej
//na koniec tej procedury załaduj czystą stronę do WebBrowsera
WebBrowser.Navigate('about:blank');  
End;

4. Wyświetlaj tak przygotowaną stronę przy pomocy procedury wygenerowanej zakładką 'Evens" dla objektu "TWebBrowser"

PROCEDURE TForm1.WebBrowserDownloadComplete(Sender: TObject);
Begin
 WebBrowser.OleObject.document.write(KodStrony.Text);//wczytuje kod strony
 //tu dodatkowo możesz ukryć scrollbar
 with WebBrowser do
 begin
  OleObject.Document.Body.Style.OverflowX := 'hidden';
  OleObject.Document.Body.Style.OverflowY := 'hidden';
 end;
End; 

1. TWebBrowser i po prostu wpisujesz tam ten kawałek kodu.... albo :)

2. Widze że tam jest jakiś 'sessid' więc parametr potencialnie zmienny a za czym idzie trzeba go pobierać dynamicznie... posniffuj sobie zobacz na czym polega i co robi ten applet i zimplementuj go w delphi albo daj mi namiary ([email protected]) co od stronki i ja pokombinuje bo spec od kamer to - JA ;] I to trzeba zapamiętać LoL

Skorzystałem z propozycji INTRA i dzała jak chciałem.

Dzieki za pomoc. [cya]