Görsel olmayan component kullanma

[cinarbil]

Sayın Mrmarman hazırladığı kodu form üzerine 1 adet Idftp1 Component ekleyerek
çalıştırıyorum. benim istediğim bu kodu form olmadan .pas dosyasında kullanmak

pas dosyasının uses kısmına Idftp ekliyorum programı çalıştırdığımda hata veriyor.

Form olunca kullandığım kod

Kod: Tümünü seç

If FTPDosyaAl(data_form.IdFTP1,KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass ) then begin // kodlar end;

hatasız çalışıyor

Pas dosyasındaki Uses Kısmı

Kod: Tümünü seç

uses SysUtils, Data.DB,Messages, Classes,
  Forms, Dialogs, StdCtrls, Registry, windows,IdTCPConnection, IdTCPClient, IdHTTP, IdBaseComponent, IdComponent,Vcl.ExtActns,
  IdFTP,IdFTPCommon, IdExplicitTLSClientServerBase;

hata

Kod: Tümünü seç

If FTPDosyaAl(IdFTP,KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass )

Idftp1 yerine Idftp yazıyorum. Idftp. noktadan sonra bir işlem yapmam gereklimi

[dcc32 Error] ortaklib.pas(1248): E2029 '.' expected but ',' found // 1248 FTPDosyaAl(IdFTP,.... yazılı olduğu satır

[AliZairov]

Merhaba. Bunun için bileşeni create etmeniz gerekmekte.

Kod: Tümünü seç

unit denemepas;

interface

uses
  IdHTTP;

type
  TDeneme = class(TObject)
  private
    FHTTP: TIdHTTP;
  public
    constructor Create;
    destructor Destroy;
  end;

implementation

constructor TDeneme.Create;
begin
  FHTTP                         := TIdHTTP.Create(nil);
  FHTTP.Request.AcceptLanguage  := 'en';
  FHTTP.Request.UserAgent       := 'Mozilla/5.0';
end;

destructor TDeneme.Destroy;
begin
  FHTTP.Free;
end;

end.

[cinarbil]

Bilgi olarak

pas dosyasında uses altındaki tanımlamalarda

Kod: Tümünü seç

function FTPDosyaAl( IdFTP : TIdFTP; SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;

Yazılı

[AliZairov]

Bilgi olarak

pas dosyasında uses altındaki tanımlamalarda

Kod: Tümünü seç

function FTPDosyaAl( IdFTP : TIdFTP; SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;

Yazılı

Fonksiyon böyleyse
function FTPDosyaAl( IdFTP : TIdFTP; SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;

Kullanımı
FTPDosyaAl(IdFTP1, SrcDosya, DesDosya, Ftp, RemoteDir, Login, Pass); // IdFTP1 normalde formumda yeni olusturdugunuzda boyle isim oluyor amma isim degistirdiyseniz o zaman o ismin yalniz yazacaksiniz.

[cinarbil]

sayın Alizairov
Saygısızlık olarak almayın lütfen sizin mesajınızdan sonra

pas dosyasındaki

Kod: Tümünü seç

var
Idftp1  : TIdFTP;

tanımladım

foksiyonu kulandığın procedure içinde

Kod: Tümünü seç

procedure VersiyonKontrol;
var Versiyon: string; V1, V2, V3, V4: word;
FTPAdres,KaynakDizin,Name,Pass,KaynakDosya,HedefDosya : String;
begin
Idftp1:=TidFTP.Create(nil);

burada sizin bilginizden faydalanarak idftp1 oluşturdum.

Kod: Tümünü seç

end;
Idftp1.Free; 
end;

procedure sonunda yok ettim
program çalıştı
bu tip işlemleri fazlaca yapacağımdan ve yeni öğrendiğimden işlem yolu doğru mudur?

[AliZairov]

İyi akşamlar. Evet doğru sadece daha kullanışlı yapa bilmeniz mümkün.

Kod: Tümünü seç

unit AppLib;

interface

uses
  System.SysUtils,
  IdFTP;

type
  TApp = class(TObject)
  private
    FFTP: TIdFTP;
  public
    constructor Create;
    destructor Destroy;
    function FTPDosyaAl(SrcDosya, DesDosya: TFileName; Ftp, RemoteDir: string ):Boolean;
  end;

implementation

constructor TApp.Create;
begin
  FFTP := TIdFTP.Create(nil);
  FFTP.Host := '127.0.0.1';
  FFTP.Port := 21;
end;

destructor TApp.Destroy;
begin
  FFTP.Free;
end;

function TApp.FTPDosyaAl(SrcDosya, DesDosya: TFileName; Ftp, RemoteDir: string): Boolean;
begin
  // islem kodlari
end;

end.