Forum Delphi.cz

Delphi => Obecné => Téma založeno: Kony 19-05-2018, 16:34:17

Název: Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 19-05-2018, 16:34:17
Ahoj,
stahnu si z internetu (z meho serveru) soubor m3u do RichEditu a potreboval bych si za http:// vlozit muj definovany text a potom aby to pokracovalo dal

nyni text vypada takto:
Kód: Delphi [Vybrat]
  1. #EXTM3U
  2. #EXTINF:-1,Radio 1
  3. http://mujserver.cz/cislo_radia/10
  4. #EXTINF:-1,Radio 2
  5. http://mujserver.cz/cislo_radia/20
  6.  

a potreboval bych aby se ten text upravil na
Kód: Delphi [Vybrat]
  1. #EXTM3U
  2. #EXTINF:-1,Radio 1
  3. http://MUJDOPLNENYTEXT@mujserver.cz/cislo_radia/10
  4. #EXTINF:-1,Radio 2
  5. http://MUJDOPLNENYTEXT@mujserver.cz/cislo_radia/20
  6.  
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 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
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 19-05-2018, 17:58:25
AUUUUUU tak to je narez.... jsi neskutecnej

vysledek :
Kód: Delphi [Vybrat]
  1. #EXTM3U
  2. #EXTINF:-1,Radio 1
  3. http://login:password@mujserver.cz/cislo_radia/10
  4.  
  5. #EXTINF:-1,Radio 2
  6. 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....
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 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
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 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: Delphi [Vybrat]
  1. DownloadURL_NOCache('http://mujserver/zakladni_radia/zakladni.m3u', zakladni);

a pak vlozim do RichEditu

Kód: Delphi [Vybrat]
  1. RichEdit1.Lines.Add (zakladni);
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 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: Delphi [Vybrat]
  1. if DBCheckBox9.Checked then
  2.     begin
  3.         RichEdit1.Lines.Add (zakladni);
  4.     end;
  5.   if DBCheckBox4.Checked then
  6.     begin
  7.         RichEdit1.Lines.Add (TOP);
  8.     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: Delphi [Vybrat]
  1. [Error] hlavni.pas(199): Types of actual and formal var parameters must be identical
  2. [Error] hlavni.pas(216): Types of actual and formal var parameters must be identical
  3. [Fatal Error] KonaroTV.dpr(5): Could not compile used unit 'hlavni.pas'




PS: Tak uz to bezi jak ma.. jeste jednou mockrat dekuji
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 19-05-2018, 19:04:44
diky moc, to jsem presne udelal a uz to slape jak hodinky.....
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 20-05-2018, 14:47:41
jeste se divam, ze to spatne cte diakritiku... v m3u souboru ji mam spravne alůe do RichEditu to nacte spatne

Č to nacte jako ÄŚ

PS:: Ale co me vic zarazi, tak potrebuji cely RichEdit ulozit do souboru

poomoci RichEdit.SavetoFile('test.m3u') mi to pred kazdy radek dopise nejaky nesmysli
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 20-05-2018, 15:20:09
na zacatek souboru to vlozi :

Kód: Delphi [Vybrat]
  1. {\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset238{\*\fname Times New Roman;}Times New Roman CE;}}
  2. \viewkind4\uc1\pard\f0\fs16

a potom pred kazdy zacatek radku

Kód: Delphi [Vybrat]
  1. \par

Ted to mam cely takto :

Kód: Delphi [Vybrat]
  1. procedure TForm1.Button3Click(Sender: TObject);
  2. var
  3.     S: string;
  4.     I: Integer;
  5. begin
  6.   RichEdit1.Clear;
  7.   if DBCheckBox12.Checked then
  8.     begin
  9.       Response := TStringList.Create;
  10.       try
  11.         Response.Text := IdHTTP1.Get('http://server/radio/Zakladni.m3u');
  12.         for I := 0 to Response.Count - 1 do
  13.         begin
  14.           S := Response[I];
  15.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  16.             Response[I] := S;
  17.         end;
  18.         RichEdit1.Lines.AddStrings(Response);
  19.             finally
  20.         Response.Free;
  21.       end;
  22.     end;
  23.    
  24.   if DBCheckBox8.Checked then
  25.     begin
  26.       Response1 := TStringList.Create;
  27.       try
  28.         Response1.Text := IdHTTP1.Get('http://server/radio/TOP.m3u');
  29.         for I := 0 to Response1.Count - 1 do
  30.         begin
  31.           S := Response1[I];
  32.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  33.             Response1[I] := S;
  34.         end;
  35.         RichEdit1.Lines.AddStrings(Response1);
  36.             finally
  37.         Response.Free;
  38.       end;
  39.     end;
  40.  
  41.   if DBCheckBox9.Checked then
  42.     begin
  43.       Response := TStringList.Create;
  44.       try
  45.         Response.Text := IdHTTP1.Get('http://http://server/radio/Country.m3u');
  46.         for I := 0 to Response.Count - 1 do
  47.         begin
  48.           S := Response[I];
  49.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  50.             Response[I] := S;
  51.         end;
  52.         RichEdit1.Lines.AddStrings(Response);
  53.             finally
  54.         Response.Free;
  55.       end;
  56.     end;
  57.  
  58.   if DBCheckBox4.Checked then
  59.     begin
  60.       Response := TStringList.Create;
  61.       try
  62.         Response.Text := IdHTTP1.Get('http://server/radio/folk.m3u');
  63.         for I := 0 to Response.Count - 1 do
  64.         begin
  65.           S := Response[I];
  66.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  67.             Response[I] := S;
  68.         end;
  69.         RichEdit1.Lines.AddStrings(Response);
  70.             finally
  71.         Response.Free;
  72.       end;
  73.     end;
  74.  
  75.   if DBCheckBox7.Checked then
  76.     begin
  77.       Response := TStringList.Create;
  78.       try
  79.         Response.Text := IdHTTP1.Get('http://server/radio/bit.m3u');
  80.         for I := 0 to Response.Count - 1 do
  81.         begin
  82.           S := Response[I];
  83.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  84.             Response[I] := S;
  85.         end;
  86.         RichEdit1.Lines.AddStrings(Response);
  87.             finally
  88.         Response.Free;
  89.       end;
  90.     end;
  91.  
  92.   if DBCheckBox5.Checked then
  93.     begin
  94.       Response := TStringList.Create;
  95.       try
  96.         Response.Text := IdHTTP1.Get('http://server/radio/detske.m3u');
  97.         for I := 0 to Response.Count - 1 do
  98.         begin
  99.           S := Response[I];
  100.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  101.             Response[I] := S;
  102.         end;
  103.         RichEdit1.Lines.AddStrings(Response);
  104.             finally
  105.         Response.Free;
  106.       end;
  107.     end;
  108.  
  109.   if DBCheckBox3.Checked then
  110.     begin
  111.       Response := TStringList.Create;
  112.       try
  113.         Response.Text := IdHTTP1.Get('http://server/radio/vazna.m3u');
  114.         for I := 0 to Response.Count - 1 do
  115.         begin
  116.           S := Response[I];
  117.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  118.             Response[I] := S;
  119.         end;
  120.         RichEdit1.Lines.AddStrings(Response);
  121.             finally
  122.         Response.Free;
  123.       end;
  124.     end;
  125.  
  126.   if DBCheckBox1.Checked then
  127.     begin
  128.       Response := TStringList.Create;
  129.       try
  130.         Response.Text := IdHTTP1.Get('http://server/radio/moderni.m3u');
  131.         for I := 0 to Response.Count - 1 do
  132.         begin
  133.           S := Response[I];
  134.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  135.             Response[I] := S;
  136.         end;
  137.         RichEdit1.Lines.AddStrings(Response);
  138.             finally
  139.         Response.Free;
  140.       end;
  141.     end;
  142.  
  143.   if DBCheckBox2.Checked then
  144.     begin
  145.       Response := TStringList.Create;
  146.       try
  147.         Response.Text := IdHTTP1.Get('http://server/radio/hause.m3u');
  148.         for I := 0 to Response.Count - 1 do
  149.         begin
  150.           S := Response[I];
  151.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  152.             Response[I] := S;
  153.         end;
  154.         RichEdit1.Lines.AddStrings(Response);
  155.             finally
  156.         Response.Free;
  157.       end;
  158.     end;
  159.  
  160.   if DBCheckBox10.Checked then
  161.     begin
  162.       Response := TStringList.Create;
  163.       try
  164.         Response.Text := IdHTTP1.Get('http://server/radio/ostatni.m3u');
  165.         for I := 0 to Response.Count - 1 do
  166.         begin
  167.           S := Response[I];
  168.           if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
  169.             Response[I] := S;
  170.         end;
  171.         RichEdit1.Lines.AddStrings(Response);
  172.             finally
  173.         Response.Free;
  174.       end;
  175.     end;
  176.    RichEdit1.Lines.SaveToFile('test.m3u');

Kdyz jsem zkusil dat Response.Lines.SaveToFile, tak to ulozilo posledni zvolenou cast.... ale to je jasny, protoze se u kazdyho vyberu Response uvolnuje....
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 13-09-2019, 13:53:06
Tak jsem znovu koukal na toto vlakno, ale jsou zde jen moje odpovedi... lze nejak zobrazit vse ?
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: našinec 13-09-2019, 15:23:12
Ne. Slyšel jsi někdy něco o GDPR?   :P
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 13-09-2019, 21:16:40
Tak to pak forum ztraci smysl
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: raul 13-09-2019, 21:39:35
Tak to je solidní nářez... Zrejme delfin rulez ne?
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Stanislav Hruška 13-09-2019, 22:13:28
Kony tu chodí, keď potrebuje poradiť. Nepamätám si jediný prípad, žeby on niekomu poradil. Takzvaná vyžírka. Žiaľ nie je sám.
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: pf1957 14-09-2019, 06:15:50
Tak to je solidní nářez... Zrejme delfin rulez ne?
Jj, mam to tu jeste v poste, protoze to ctu pres RSS - ale tam jsou jen prvotni postnute verze a Delfin mival ve zvyku sve odpovedi nasledne rozsirovat.
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: pf1957 14-09-2019, 06:33:32
Tak to pak forum ztraci smysl
Vetsinou, kdyz clovek nekam neco postne, tak nema duvod to mazat. Za to fora nemohou. A proc Delfin chtel, aby se vsechny jeho prispevky smazaly tezko rict...
Název: Re:Doplneni textu mezi text stazeny z internetu v RichEditu
Přispěvatel: Kony 14-09-2019, 10:15:58
Kony tu chodí, keď potrebuje poradiť. Nepamätám si jediný prípad, žeby on niekomu poradil. Takzvaná vyžírka. Žiaľ nie je sám.

Ano chodim sem kdyz neco potrebuji poradit, to je pravda, myslel jsem ze od toho fora jsou.
Jsem Delphi samouk.
Samozrejme pokud by se nekdo ptal na neco co vim, tak rad odpovim.