Autor Téma: Doplneni textu mezi text stazeny z internetu v RichEditu  (Přečteno 1414 krát)

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 284
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #15 kdy: 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....
« Poslední změna: 20-05-2018, 15:29:49 od Kony »

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 284
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #16 kdy: 13-09-2019, 13:53:06 »
Tak jsem znovu koukal na toto vlakno, ale jsou zde jen moje odpovedi... lze nejak zobrazit vse ?

Offline našinec

  • Hrdina
  • ****
  • Příspěvků: 414
  • Karma: 5
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #17 kdy: 13-09-2019, 15:23:12 »
Ne. Slyšel jsi někdy něco o GDPR?   :P

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 284
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #18 kdy: 13-09-2019, 21:16:40 »
Tak to pak forum ztraci smysl

Offline raul

  • Hrdina
  • ****
  • Příspěvků: 273
  • Karma: 15
    • Verze Delphi: FPC :D
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #19 kdy: 13-09-2019, 21:39:35 »
Tak to je solidní nářez... Zrejme delfin rulez ne?
Lazarus 1.6.3:), FPC, Intel/Arm, Windows/Linux

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4551
  • Karma: 40
    • Verze Delphi: XE7 professional
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #20 kdy: 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.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Online pf1957

  • Padawan
  • ******
  • Příspěvků: 2612
  • Karma: 133
    • Verze Delphi: D2007, XE3, DX10
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #21 kdy: 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.

Online pf1957

  • Padawan
  • ******
  • Příspěvků: 2612
  • Karma: 133
    • Verze Delphi: D2007, XE3, DX10
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #22 kdy: 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...

Offline Kony

  • Hrdina
  • ****
  • Příspěvků: 284
  • Karma: 1
    • Verze Delphi: Delphi 7
Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Odpověď #23 kdy: 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.