Poslední příspěvky

Stran: 1 [2] 3 4 ... 10
11
Obecné / TAGDEC
« Poslední příspěvek od wajco kdy 21-05-2018, 10:18:41 »
Zdravim. Vedel by mi niekto poradit ako naplnit typ z ActiveX TAGDEC?. Je to typ TDecimal z .NET.

Kód: [Vybrat]
 
tagDEC = record
    wReserved: Word;
    case Integer of
      0: (scale, sign: Byte; Hi32: Longint;
      case Integer of
        0: (Lo32, Mid32: Longint);
        1: (Lo64: LONGLONG));
      1: (signscale: Word);
  end;
13
Obecné / Re:odeslani mailu pres program v SSL
« Poslední příspěvek od Kony kdy 20-05-2018, 17:52:43 »
chyba 550
14
Obecné / Re:odeslani mailu pres program v SSL
« Poslední příspěvek od vandrovnik kdy 20-05-2018, 16:28:27 »
Určitě to hodí nějakou chybovou hlášku, která často člověku napoví, co je špatně. Takže by bylo dobré tu hlášku sem dát.
15
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 20-05-2018, 15:20:09 »
na zacatek souboru to vlozi :

Kód: [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: [Vybrat]
\par
Ted to mam cely takto :

Kód: [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....
16
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony 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
17
Obecné / odeslani mailu pres program v SSL
« Poslední příspěvek od Kony kdy 20-05-2018, 14:18:26 »
snazim se rozchodit moznost odeslani mailu primo v programu pres SSL seznamu.. nasel sjem reseni v Indy10, ale to mi nechce fungovat.

potom jsem nasel reseni

Kód: [Vybrat]
var
  Mail: TSSLEmail;
begin
  if EditToEmail.Text <> '' then
  begin
    Mail := TSSLEmail.Create('mail.example.com', 465,
      'me@example.com', '***');
 
    try
      Mail.edSenderName := 'ABC Inc.';
      Mail.edSenderEmail := 'abc@example.com';
      Mail.edToEmail := EditToEmail.Text;
      Mail.edSubject := EditSubject.Text;
      Mail.edBody := MemoBody.Lines;
 
      Mail.SendEmail;
 
      EditToEmail.Text:='';
      EditSubject.Text:='';
      MemoBody.Clear;
    finally
      Mail.Free;
    end;
  end;
end;

ale to mi nechce chodit
18
Mobilní vývoj / Re:Propojení Delphi a Macu
« Poslední příspěvek od rtomecek kdy 20-05-2018, 08:55:36 »
Diky moc za link.

Trosku pakarna na strane MAcu, ale povedlo se. Pak jeste jeden problem s cestama ke knihovnam a voila, na MACu uz mi apka bezi.

Ted faze cislo 2 - Xcode a iOS.
19
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Delfin kdy 19-05-2018, 19:10:50 »
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).
20
Obecné / Re:Doplneni textu mezi text stazeny z internetu v RichEditu
« Poslední příspěvek od Kony kdy 19-05-2018, 19:04:44 »
diky moc, to jsem presne udelal a uz to slape jak hodinky.....
Stran: 1 [2] 3 4 ... 10