internetten bilgi alma

[sako]

arkadaşlar internetten döviz kurlanrını almak için diğer forumda kodlar vardı acaba hatırlayan varmı ..
iyi çalışmalar.

[mussimsek]

Merhaba,

ben daha önce yazdığım bir programdan copy-paste yapıyorum sen kendine göre düzenlersin biraz. DownloadInternetFile fonksiyonu internetten bir dosyayı diske indirmek için kullanılıyor ve Delphi İpuçları kısmında var.

Kod: Tümünü seç

procedure TFrm_Doviz_Kurlari.Btn_Merkez_BankasiClick(Sender: TObject);
var
  SourceString, DestinationString : string;
  DovizText : TextFile;
  satir : string;
  Doviz_Cinsi : string;
  i : Integer;
begin
  SourceString := 'http://www.tcmb.gov.tr/kurlar/today.html';
  DestinationString := 'c:\aaa\kurtemp.html';

  try
    Screen.Cursor := crHourGlass;

    if DownLoadInternetFile(SourceString, DestinationString) then
      begin
        AssignFile(DovizText, DestinationString);
        Reset(DovizText);

        while not EOF(DovizText) do
          begin
   	        ReadLn(DovizText, satir);

            Doviz_Cinsi := Trim(Copy(satir, 1, 3));

            for i:= 0 to Tree_Doviz.Count -1 do
              if (Doviz_Cinsi = Tree_Doviz.Items[i].Values[0]) and (Copy(satir, 4, 1) <> '/') then
              begin
                satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
                satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
                satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
                if (Copy(satir, 1, 1) <> '1') and
                   (Copy(satir, 1, 1) <> '2') and
                   (Copy(satir, 1, 1) <> '3') and
                   (Copy(satir, 1, 1) <> '4') and
                   (Copy(satir, 1, 1) <> '5') and
                   (Copy(satir, 1, 1) <> '6') and
                   (Copy(satir, 1, 1) <> '7') and
                   (Copy(satir, 1, 1) <> '8') and
                   (Copy(satir, 1, 1) <> '9') then
                satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
                satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
                satir := Trim(Copy (satir, Pos (' ', satir), Length(satir)));
                Tree_Doviz.Items[i].Values[2] := Trim (VirgulSil(Copy (satir, 1, Pos(' ', satir))));
           //     ShowMessage(satir);
              end;
          end; {while}
        CloseFile(DovizText);

        Degistirilen_Kurlari_Kaydet; // burda kurları döviz tabloma kaydediyor
      end
    else
      MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
  finally
    Screen.Cursor := crDefault;
  end; {try}
end;

[perfectlover]

Özür dileyerek bu DownloadInternetFile prosedürünü merak ettim . net Componentlrinin bi fonksiyonumu yoksa başk bişiy mi??

[husonet]

Sitenin çalışıp çalışmadığına dair check yapan bir fonksiyon.

Aldığı argumanlara baktığım kadarıyla netteki bir sayfayı diske aktarıyor.

Kolay Gelsin...

[TRSoft]

bende kullanmışdım o fonksiyonu

Kod: Tümünü seç

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;

[mussimsek]

Sitede İpucu kısmında kullanımı var onun.

Kolay gelsin.

[mkarabulut]

DElphi'de düzenli ifadeler (Regular Expressions) ile ilgili bir extension, component v.s. yok mu ? (Ben delphi'den pek anlamam da)

Aksi takdirde bu kadar string fonksiyonları ile uğraşmak zorunda olmak kötü oluyor.

[mussimsek]

var : DevExpress'teki MaskEdit'ler destekliyor. Hem de çok esnek bir şekilde. Başka da mutlaka vardır. torry ve Delphi Super page'e bakmak lazım.

Kolay gelsin.

[mertcenk3]

Tree_Doviz dediğiniz hangi bileşen oluyor..

[_musti46_]

s.a
ben delphide döviz bürosu projesi yapıyorum access veri tabanı kullanıyoeum onun fiyat tablosu var oraya alsfiyatı satış fiyatı olan alanlarına sırayla dolar alıs satış euro alış satış yapmak istiyorum ama bi türlü o veri tabanına o tabloya gönderme yapamadım acilen yardımınıza ihtiyacım var yardımcı olursanız çok memnun kalacam yoksa sınıfta kalacam :=) şimdiden teşekkür ederim