Hogyan lehet lekerdezni az IP cimet Delphiben?
-
phoenix1 #244 Gyorsan utánna néztem, hogy mi fog kelleni. Ezekre az unitokra lesz szükséged: ShockwaveFlashObjects_TLB és ShockwaveEx.
Ezután ráteszed a flash lejátszót a Formra megadod a "Movie" opcióba a fájlnevet vagy akkor amikor létrehozza a form-ot pl.
procedure Tform_main.FormCreate(Sender: TObject);
var
sAppPath: String;
begin
sAppPath := ExtractFilePath(Application.ExeName);
flashPlayer.Movie := sAppPath+'autorun.swf';
end;
Gondolom, arra is kíváncsi vagy, hogy miért lesz ott a formon vmi hasonló, hogy fehér kocka beálítod autosize-re és a fehér kocka körül átlátszó. Semmi gond. Ez a megoldás:
procedure Tform_main.FormResize(Sender: TObject);
begin
flashPlayer.CreateWnd;
end;
A "flashPlayer" a formra dobott lejátszó neve.
Sok mindent lehet csinálni flashel és delphivel, ha vmi eszed be jut amit nem tudsz szólj :)