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

Kony · « **kdy:** 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]

#EXTM3U
#EXTINF:-1,Radio 1
http://mujserver.cz/cislo_radia/10
#EXTINF:-1,Radio 2
http://mujserver.cz/cislo_radia/20
 

a potreboval bych aby se ten text upravil na

Kód: Delphi [Vybrat]

#EXTM3U
#EXTINF:-1,Radio 1
http://MUJDOPLNENYTEXT@mujserver.cz/cislo_radia/10
#EXTINF:-1,Radio 2
http://MUJDOPLNENYTEXT@mujserver.cz/cislo_radia/20
 

99871 · « **Odpověď #1 kdy:** 19-05-2018, 16:37:18 »

Proc neupravis playlist rovnou na Tvem serveru? Moznosti samozrejme jsou... Pro Delphi 7 upgrade Indy a pouziti TIdURI, pripadne WinAPI InternetCrackUrl s naslednou modifikaci struktury komponent a vytvorenim nove URL pomoci InternetCreateUrl. Nebo po vidlacku povazovat URL za bezny retezec a pomoci Pos a dalsich textovych funkci do nej vlozit login s heslem (coz bych tipoval ze je cilem).

Kony · « **Odpověď #2 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

99873 · « **Odpověď #3 kdy:** 19-05-2018, 17:51:03 »

Citace: Kony 19-05-2018, 17:11:04

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]

const
  Protocol = 'http://';
 
function IsURL(const Text: string): Boolean;
begin
  Result := Pos(Protocol, Text) = 1; // pokud je na zacatku textu retezec "http://", povazujeme text za URL (coz zdaleka neni pravda)
end;
 
function TryAppendLogin(var URL: string; const UserName, Password: string): Boolean;
begin
  Result := IsURL(URL); // zjistime zda je retezec URL
  if Result then // pokud ano, pak...
    Insert(UserName + ':' + Password + '@', URL, Length(Protocol) + 1); // vlozime jmeno a heslo na pozici za protokol
end;
 
procedure TForm93.Button1Click(Sender: TObject);
var
  S: string;
  I: Integer;
begin
  RichEdit1.Lines.BeginUpdate;
  try
    for I := 0 to RichEdit1.Lines.Count - 1 do
    begin
      S := RichEdit1.Lines[I];
      if TryAppendLogin(S, 'login', 'password') then
        RichEdit1.Lines[I] := S;
    end;
  finally
    RichEdit1.Lines.EndUpdate;
  end;
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.

Kony · « **Odpověď #4 kdy:** 19-05-2018, 17:58:25 »

AUUUUUU tak to je narez.... jsi neskutecnej

vysledek :

Kód: Delphi [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....

99875 · « **Odpověď #5 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.

Kony · « **Odpověď #6 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

99877 · « **Odpověď #7 kdy:** 19-05-2018, 18:18:27 »

Citace: 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

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.

Kony · « **Odpověď #8 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: Delphi [Vybrat]

DownloadURL_NOCache('http://mujserver/zakladni_radia/zakladni.m3u', zakladni);

a pak vlozim do RichEditu

Kód: Delphi [Vybrat]

RichEdit1.Lines.Add (zakladni);

99879 · « **Odpověď #9 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]

var
  S: string;
  I: Integer;
  Response: TStrings;
begin
  Response := TStringList.Create;
  try
    DownloadURL_NOCache('http://mujserver/zakladni_radia/zakladni.m3u', Response);
    for I := 0 to Response.Count - 1 do
    begin
      S := Response[I];
      if TryAppendLogin(S, 'login', 'password') then
        Response[I] := S;
    end;
    RichEdit1.Lines.Assign(Response);
  finally
    Response.Free;
  end;
end;

Kony · « **Odpověď #10 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: Delphi [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: Delphi [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

99881 · « **Odpověď #11 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]

RichEdit1.Lines.Assign(Response);

bys nahradil za:

Kód: Delphi [Vybrat]

RichEdit1.Lines.AddStrings(Response);

Nevedel jsem o kontextu vyuziti vic nez vis Ty sam

Kony · « **Odpověď #12 kdy:** 19-05-2018, 19:04:44 »

diky moc, to jsem presne udelal a uz to slape jak hodinky.....

99883 · « **Odpověď #13 kdy:** 19-05-2018, 19:10:50 »

Citace: Kony 19-05-2018, 19:04:44

diky moc, to jsem presne udelal a uz to slape jak hodinky.....

Neni zac!

Nicmene korektni reseni by bylo mit parser pro M3U soubory, ktery by rozlamal jednotlive polozky na nazvy a zdroje a pote bys mohl z takovychto polozek pridat ve zdroji (pokud by byl URL adresou) jmeno uzivatele a heslo. To by vyzadovalo napsat M3U parser a v nem pak pouzit vyse zminene reseni (tj. napr. TIdURI pripadne InternetCrackUrl a InternetCreateUrl na Windows platforme).

Kony · « **Odpověď #14 kdy:** 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

Kony · « **Odpověď #15 kdy:** 20-05-2018, 15:20:09 »

na zacatek souboru to vlozi :

Kód: Delphi [Vybrat]

{\rtf1\ansi\ansicpg1250\deff0\deflang1029{\fonttbl{\f0\fnil\fcharset238{\*\fname Times New Roman;}Times New Roman CE;}}
\viewkind4\uc1\pard\f0\fs16 

a potom pred kazdy zacatek radku

Kód: Delphi [Vybrat]

\par 

Ted to mam cely takto :

Kód: Delphi [Vybrat]

procedure TForm1.Button3Click(Sender: TObject);
var
    S: string;
    I: Integer;
begin
  RichEdit1.Clear;
  if DBCheckBox12.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/Zakladni.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
    
  if DBCheckBox8.Checked then
    begin
      Response1 := TStringList.Create;
      try
        Response1.Text := IdHTTP1.Get('http://server/radio/TOP.m3u');
        for I := 0 to Response1.Count - 1 do
        begin
          S := Response1[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response1[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response1);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox9.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://http://server/radio/Country.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox4.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/folk.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox7.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/bit.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox5.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/detske.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox3.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/vazna.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox1.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/moderni.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox2.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/hause.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
 
  if DBCheckBox10.Checked then
    begin
      Response := TStringList.Create;
      try
        Response.Text := IdHTTP1.Get('http://server/radio/ostatni.m3u');
        for I := 0 to Response.Count - 1 do
        begin
          S := Response[I];
          if TryAppendLogin(S, DBEdit7.Text, DBEdit8.Text) then
            Response[I] := S;
        end;
        RichEdit1.Lines.AddStrings(Response);
            finally
        Response.Free;
      end;
    end;
   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....

Kony · « **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 ?

našinec · « **Odpověď #17 kdy:** 13-09-2019, 15:23:12 »

Ne. Slyšel jsi někdy něco o GDPR?

Kony · « **Odpověď #18 kdy:** 13-09-2019, 21:16:40 »

Tak to pak forum ztraci smysl

raul · « **Odpověď #19 kdy:** 13-09-2019, 21:39:35 »

Tak to je solidní nářez... Zrejme delfin rulez ne?

Stanislav Hruška · « **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.

pf1957 · « **Odpověď #21 kdy:** 14-09-2019, 06:15:50 »

Citace: raul 13-09-2019, 21:39:35

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.

pf1957 · « **Odpověď #22 kdy:** 14-09-2019, 06:33:32 »

Citace: Kony 13-09-2019, 21:16:40

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...

Kony · « **Odpověď #23 kdy:** 14-09-2019, 10:15:58 »

Citace: 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.

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.

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

99871

99873

99875

99877

99879

99881

99883