Poslední příspěvky

Stran: 1 2 [3] 4 5 ... 10
21
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Delfin kdy 19-05-2018, 18:58:51 »
Z meho pohledu nemuzu poradit vic. Ano, text v me ukazce nepridava ale nahrazuje diky metode Assign. Pokud bys chtel do rich edit text jen pridavat, pouzij namisto ni metodu AddStrings. Cili radek z me ukazky:

Kód: Delphi [Vybrat]
  1. RichEdit1.Lines.Assign(Response);

bys nahradil za:

Kód: Delphi [Vybrat]
  1. RichEdit1.Lines.AddStrings(Response);

Nevedel jsem o kontextu vyuziti vic nez vis Ty sam :)
22
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 19-05-2018, 18:34:08 »
Tak to by melo byt ono....

ale jeste jedna vec....

mam na formu CheckBoxy, ktery me urcuji ktery vsechny playlisty se maji stahnout a upravit....
mam :
Kód: [Vybrat]
if DBCheckBox9.Checked then
    begin
        RichEdit1.Lines.Add (zakladni);
    end;
  if DBCheckBox4.Checked then
    begin
        RichEdit1.Lines.Add (TOP);
    end;

atd......

misto toho dam ten tvuj priklad, ale kdyz vyberu obadva tak se vypise vzdy pouze jeden....


PS2 : tak jak si to tedka upravil tak to uz nejde.... a ja vymazal ten priklad co si mel pred tim......

ted to pise :
a vysi to za zavorkou za response u toho radku jak se stahuje ten m3u response
Kód: [Vybrat]
[Error] hlavni.pas(199): Types of actual and formal var parameters must be identical
[Error] hlavni.pas(216): Types of actual and formal var parameters must be identical
[Fatal Error] KonaroTV.dpr(5): Could not compile used unit 'hlavni.pas'




PS: Tak uz to bezi jak ma.. jeste jednou mockrat dekuji
23
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Delfin kdy 19-05-2018, 18:25:29 »
Snad neco ve smyslu (zpracovat odpoved serveru predtim nez ji predas vizualni komponente [jez muze ovlivnit iteraci radku jejich zalamovanim]):

Kód: Delphi [Vybrat]
  1. var
  2.   S: string;
  3.   I: Integer;
  4.   Response: TStrings;
  5. begin
  6.   Response := TStringList.Create;
  7.   try
  8.     DownloadURL_NOCache('http://mujserver/zakladni_radia/zakladni.m3u', Response);
  9.     for I := 0 to Response.Count - 1 do
  10.     begin
  11.       S := Response[I];
  12.       if TryAppendLogin(S, 'login', 'password') then
  13.         Response[I] := S;
  14.     end;
  15.     RichEdit1.Lines.Assign(Response);
  16.   finally
  17.     Response.Free;
  18.   end;
  19. end;
24
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 19-05-2018, 18:19:59 »
aha, tak to bohuzel nevim jak udelat. vzdycky jsem to delal bud pres memo nebo RichEdit

stahuju ten soubor do promenne pomoci

Kód: [Vybrat]
DownloadURL_NOCache('http://mujserver/zakladni_radia/zakladni.m3u', zakladni);
a pak vlozim do RichEditu

Kód: [Vybrat]
RichEdit1.Lines.Add (zakladni);
25
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Delfin kdy 19-05-2018, 18:18:27 »
WordWrap jsem tedka dal na false a je to to samy...

a jak si to myslel tim upravou jinde ??? nacetl sjem prace ten m3u do toho RichEditu a potom tam upravil, nevim jak jinak na to

No kvuli tomu lamani radku jsem mel na mysli nacist data ze serveru do instance (i docasne) TStringList, ten projit, a az pote ten upraveny string list predat rich edit.
26
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 19-05-2018, 18:11:58 »
WordWrap jsem tedka dal na false a je to to samy...

a jak si to myslel tim upravou jinde ??? nacetl sjem prace ten m3u do toho RichEditu a potom tam upravil, nevim jak jinak na to

PS: Ty mezery by ani nevadily, ale to ze to po nejake dobe prestane dosazovat.... je to ruzny.. jednou po cca 50 radcich po druhy treba po 20ti
27
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Delfin kdy 19-05-2018, 18:02:48 »
Nemas zapnuty WordWrap v tom rich editu? Jinak obecne, data bys mel uchovavat mimo vizualni komponenty. Cili stahnout ze serveru do instance string list, upravit hodnoty tam, a az po uprave predat vizualni komponente.
28
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 19-05-2018, 17:58:25 »
AUUUUUU tak to je narez.... jsi neskutecnej

vysledek :
Kód: [Vybrat]
#EXTM3U
#EXTINF:-1,Radio 1
http://login:password@mujserver.cz/cislo_radia/10

#EXTINF:-1,Radio 2
http://login:password@mujserver.cz/cislo_radia/20

jen tam rve mezeru za kazdej ten radek. to je spravne ???

PS : a jeste se divam.... funguje to dobre, ale po nekolika radcich to proste prestane doplnovat....
29
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Delfin kdy 19-05-2018, 17:51:03 »
ano presne to je cilem.... rekl bych ze pouziti POS bude to prave....

Neni to to prave. Spravne by bylo mit nejaky M3U parser, spolu s URL parsery ktere jsem zminil, ale volba je na Tobe ;) Tady je ukazka s vyuzitim funkci Pos a Insert. Funkcni je, ale urcite neni mnou doporucene!:

Kód: Delphi [Vybrat]
  1. const
  2.   Protocol = 'http://';
  3.  
  4. function IsURL(const Text: string): Boolean;
  5. begin
  6.   Result := Pos(Protocol, Text) = 1; // pokud je na zacatku textu retezec "http://", povazujeme text za URL (coz zdaleka neni pravda)
  7. end;
  8.  
  9. function TryAppendLogin(var URL: string; const UserName, Password: string): Boolean;
  10. begin
  11.   Result := IsURL(URL); // zjistime zda je retezec URL
  12.   if Result then // pokud ano, pak...
  13.     Insert(UserName + ':' + Password + '@', URL, Length(Protocol) + 1); // vlozime jmeno a heslo na pozici za protokol
  14. end;
  15.  
  16. procedure TForm93.Button1Click(Sender: TObject);
  17. var
  18.   S: string;
  19.   I: Integer;
  20. begin
  21.   RichEdit1.Lines.BeginUpdate;
  22.   try
  23.     for I := 0 to RichEdit1.Lines.Count - 1 do
  24.     begin
  25.       S := RichEdit1.Lines[I];
  26.       if TryAppendLogin(S, 'login', 'password') then
  27.         RichEdit1.Lines[I] := S;
  28.     end;
  29.   finally
  30.     RichEdit1.Lines.EndUpdate;
  31.   end;
  32. end;

Netestoval jsem v Delphi 7, jen doufam ze by melo fungovat i tam. Spravna cesta by byla pouziti TIdURI (jenz ma platformne nezavisly parser), pripadne pro Windows WinAPI ktere jsem zminoval.

Docileni toho aby radky obsahujici URL zdroje M3U playlistu by vyzadovaly M3U parser. Vyse uvedene reseni nahradi vsechny radky zacinajici protokolem http:// (coz neni uplne v poradku). Prvne bych se pokusil napsat si vlasntni M3U parser. Ten format je trivialni.
30
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 19-05-2018, 17:11:04 »
ano presne to je cilem.... rekl bych ze pouziti POS bude to prave....


na sevreru to nechci primo upravovat.... proto si delam tu aplikaci, abych si to mohl upravovat az u me na PC...

PS: Tak hledam nejaky nakopnuti na to POS, ale nejak v tom tapu

PS 2 : Divam se i na to InternetCrackUrl, ale to bych urcil jen jeden radek, jak docilim abych to takto provedl na vsechny radky a mohl do kazdyho radku dosadit svuj text ???

Mohl by si mi prosim pomoct ?? uz si mi mnohokrat pomohl a jsem ti za to vdecen
Stran: 1 2 [3] 4 5 ... 10