Edit.text Değişken yardım

[Commandx]

arkadaşlar yardımcı olursanız sevinirim
yaptığım şey download internetten dosya kopyalama işlemi
aşağıdaki kodda yani SourceFile = 'http://www.delphiturkiye.com/bayrak.gif'; // <-- bu kısmı
edit1 de yazacağım için hata veriyor
SourceFile = edit1.text; //olmasını istiyorum, ama böyle yaptığımda hata veriyor, nasıl yapmam gerekiyor

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,urlmon,shellapi, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
   try
       Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
   except
       Result := False;
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
// İndirilecek dosyanın yeri
   SourceFile = 'http://www.delphiturkiye.com/bayrak.gif'; // <-- bu kısmı edit te yazacağım için -bu kısım değişken olsun istiyorum

// dosyanın kaydedileceği yer
   DestFile = 'c:\temp\bayrak.gif';
begin
   if DownloadFile(SourceFile, DestFile) then
   begin
       ShowMessage('İndirme işlemi başarılı !');
       ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
       PChar(''), nil, SW_NORMAL)
   end else begin
      ShowMessage('Hata : ' + SourceFile)
   end;

end;

end.

[mrmarman]

SourceFile değişkenini tanımla.

Kod: Tümünü seç

Var
  SourceFile : String;

sonra da beginden hemen sonra Edit1.Text'i ata

Kod: Tümünü seç

// İndirilecek dosyanın yeri
   SourceFile := Edit1.Text;

- Sonuç olarak kodun şöyle oldu.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
  SourceFile : String;
const
// dosyanın kaydedileceği yer
   DestFile = 'c:\temp\bayrak.gif';
begin
// İndirilecek dosyanın yeri
   SourceFile := Edit1.Text;
   if DownloadFile(SourceFile, DestFile) then
   begin
       ShowMessage('İndirme işlemi başarılı !');
       ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
       PChar(''), nil, SW_NORMAL)
   end else begin
      ShowMessage('Hata : ' + SourceFile)
   end;

end;

[ikutluay]

string tipinde degerler teknik anlamda char tipli diziler. başlarında uzunluk byte var. ancak bazı fonksiyonlar string değilde pchar tipli degerleri parametre istiyorlar. o yüzden string->pchar cevrim yapman gerek. çevrimin nasıl yapıldığı kodda var.

üstad kodu düzeltmiş ben ek bilgi olsun diye yazdım.

[Commandx]

Teşekkürler hocam ya
2 saat uğraştım değişken veremedim
Çok sağolun

[Battosai]

Nasrettin hoca fıkrası gibi olmuş " İnternetten dosya indirmeyi biliyorsunda değişken tanımlamayı biliyorsun" derler adama...

[ikutluay]

bu forumda pek olmaz o:)