T.C.M.B. Döviz Kurlarını Alma

[By_Surmeneli]

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, OleCtnrs, StdCtrls, Buttons, InvokeRegistry, Rio, SOAPHTTPClient,
Grids;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
BitBtn1: TBitBtn;
HTTPRIO1: THTTPRIO;
ListBox1: TListBox;
StringGrid1: TStringGrid;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ss,ss1,aa:String;
i,h:integer;
begin
ListBox1.Clear;
try
ss:=IdHTTP1.get('http://www.tcmb.gov.tr/kurlar/today.html');
ss1 :=copy(ss,pos('<B>'#$A,ss)+4,p os('</B>'#$A'<I>',ss));
ss1:=copy (ss1,1,pos(#$A,ss1)-1);
ListBox1.Items.Add(' '+trim('Kur '+ss1));
delete (ss,1,pos(ss1,ss)+Length(ss1)) ;
ss1:=copy (ss,1,pos('</B>'#$A,ss)-1);
ListBox1.Items.Add(' '+trim(ss1));
Delete (ss,1,Pos('</I>'#$A,ss)+4);
i:=0;
repeat
ss1:=copy (ss,pos('/TRY ',ss)+4,pos(#$A,ss)-(pos('/TRY ',ss)+4));
ListBox1.Items.Add(ss1);
Delete (ss,1,Pos(#$A,ss));
inc(i);
until i>=18;
i:=0;
StringGrid1.RowCount:=18;
repeat
aa:=ListBox1.Items.Strings[i];
h:=0;
repeat
aa:=TrimLeft(aa+' ');
StringGrid1.Cells[h,i]:=copy (aa,1,pos(' ',aa));
delete (aa,1,pos(' ',aa));
inc(h);

until h>=5 ;
inc(i);

until i>=18 ;
StringGrid1.ColWidths[0]:=250;
except
Showmessage('İnternet Bağlantınızı Kontrol Ediniz');
end;
end;

end.

[amuzende]

Teşekkürler...

[By_Surmeneli]

cevap için ayrıca tşk sanırım senden başka kimse yok burda ikimiz bir birmize yardım edecez galiba

[LoVeLy]

Delphide horozum ötmüyor hiçbir şey bilmiyorum helphide ama konularınızı okudukça öğreniyorum.

[By_Surmeneli]

valla utandım şimdi yorum için tşk

[kafa avcısı]

hocam iyi güzel hoşda bide ne nereye konacak herhengibir nesne bağlantısı varmı bide onları açklarsanız sewinirim