[Delphi] sterowanie z klawiatury

0

[Wciąż] Robię program do tv internetowej który wchodzi na fullscreena, obcina po .....naście pikseli ramkę żeby nie było widać śmieci, okno z nazwą statji itp.

i mam taki problemik że:
1st. jak zrobić aby: przy numerycznym nacisnę 1 i będzie czekał pięc sekund bo mogę nacisnąć kolejną liczbę ale np. nie naciskam i ładuje mi procedure o nazwie 1ch, a jak nacisnę 1 i w ciuągu pięciu sekund np. 2 to załadue mi procedurę o nazwie 12ch i tak do tysiąca.
2nd. jak zrobyć by: :] program mi ładował z serwera np. strony plik tekstowy, zrzuca sobie go do pamięci, a potem gdy wybiorę dany numer (jak powyżej) to szuka mi po liniach np. 12. po tym czyta nazwę, a po nazwie po paru " ......... " mam system kodowania dzięki któremu dobiera mi odpowiedni system kodowania (z tymi systemami to ja sobie już poradzę) a po paru " ......... " mam czasami gwiazdkę która oznacza że to jest popularny kanał i przy oknie stacji pokazuje mi "label??" :] trochę trudny temat.

przykład takiego pliku tekstowego np. 'tvchannels.txt'

1.?????..........wm..........*
2.????????..........rm..........*
3.???..........nv

Systemy kodowania:
// wm - windows media
// rm - real media (+flash)
// nv - nullsoft video

Ale plz. odpowiedzcie, nie tak jak zawsze że nikt nie odpowiada ;P

0

1st. jak zrobić aby: przy numerycznym nacisnę 1 i będzie czekał pięc sekund bo mogę nacisnąć kolejną liczbę ale np. nie naciskam i ładuje mi procedure o nazwie 1ch, a jak nacisnę 1 i w ciuągu pięciu sekund np. 2 to załadue mi procedurę o nazwie 12ch i tak do tysiąca.

Zadeklaruj je jako metody w "published" i skorzystać z funkcji API "MethodAdress" - jest opis w dziale artykuły "Rzutowanie metod". Trzeba obsłużyć komunikat WM_CHAR (lub podobny), połączyć z Timerem lub innym (czymś co liczy czas), uzyskać liczbę - a następnie w/w funkcja API. Napisz z czym masz najwięcej problemów.

2nd. jak zrobyć by: program mi ładował z serwera np. strony plik tekstowy, zrzuca sobie go do pamięci, a potem gdy wybiorę dany numer (jak powyżej) to szuka mi po liniach np. 12. po tym czyta nazwę, a po nazwie po paru " ......... " mam system kodowania dzięki któremu dobiera mi odpowiedni system kodowania (z tymi systemami to ja sobie już poradzę) a po paru " ......... " mam czasami gwiazdkę która oznacza że to jest popularny kanał i przy oknie stacji pokazuje mi "label??" trochę trudny temat.

ehh, napisz to bardziej zrozumiale bo się szybko zgubiłem - ale mam dzisiaj ciężki umysł - nalezy skorzystać z komponentów INDY lub ICS - można sciągnąć pliczek lub zmontować HTTPGet`a

0

trochę źle podyktowałem

przykład pliku:

1.?????TV..........wm..........'tv.tv.tv.tv:8000/tv.wmv'..........*
2.???TV..........rm..........'tv.tv.tv.tv:8888/tv.rm'..........*
3.????TV..........nv..........'tv.tv.tv.tv:7777/tv.nsv
4.??????TV..........rm..........'tv.tv.tv.tv:7890/tv.swf..........*

0

trochę zmieniam temat odnośnie tego programiku:
3rd. jak przez komponent real player odtworzyć pliki windows media skoro sam program[player] to potrafi.
4th. jak z pliku m3u odczytać nazwę stacji skoro on wygląda tak:
#EXTM3U
#EXTINF:-1,DW-TV //nazwa stacji
rtsp://62.153.249.10:554/live/dwelle/dwelle-video-dsl.rm //url stacji
5th. przy komponencie NsvPlayX wywala mi błąd! "klasa niezarejestrowana!"

0

to z tą nazwą udało mi się zrobić ;P tylko mam problem:

  • jak odtworzyc przez komponent real player plik windows media skoro sam odtwarzacz [real player] to potrafi?
  • przy wstawianiu na formę komponentu NsvPlayX wywala mi błąd :"Klasa niezarejestrowana!" :/ co mam zrobić?? //ten komponent jest od obsługi plików nsv czyli "nullsoft video" jak w winampie!</span>
0

Zarejestrować klasę :) Pewnie korzysta z jakiejś niezarejestrowanej kontrolki ActiveX albo próbuje utworzyć obiekt COM o niezarejestrowanej klasie... Ogólnie tego typu błędy są związane zwykle z COM.

0

a wiecie jak temu zaradzić?

plz. niech ktos mi w końcu na to odpowie!

plz. pomóżcie! nikt sie tu nie ruszy i nic nie napisze??

co tu może być źle?

var
a : Integer;
x1, y1, z1 : Integer;


...
nrProc := IntToStr(a) + IntToStr(x1) + IntToStr(y1) + IntToStr(z1);
...

0
processor napisał(a)

co tu może być źle?

var
a : Integer;
x1, y1, z1 : Integer;


...
nrProc := IntToStr(a) + IntToStr(x1) + IntToStr(y1) + IntToStr(z1);
...

nrproc != string ?
moze byc powiedzial jaki tu jest blad?

0
wesoledi napisał(a)

nrproc != string ?
moze byc powiedzial jaki tu jest blad?

nrProc - to jest numer procedury którą ma wyszukać o nazwie: "a"+"jedna niewiadoma liczba (np.1)"+"druga niewiadoma liczba (np.5)"+"trzecia niewiadoma liczba (np.8)" wychodzi mi a158 i szuka mi:

procedure a158;

i jeszcze dodam w form create
a := a;

0

Nie ma automatycznego "FindMethod" [ w przeciwieństwie do FindComponent ] - read this: http://4programmers.net/article.php?id=427

1 użytkowników online, w tym zalogowanych: 0, gości: 1