Programlama yapalım ve Öğrenelim.

bu kodla oturum açtığımız bilgisayarda kullanıcı adımız kaydedilir ve sonra tuş il hatırlanır.

procedure TForm1.Edit1Change(Sender: TObject);

begin

if edit1.Text='' then begin

listbox1.Items.Clear;

end;

listbox1.Items.Clear;

uzun:=length(edit1.Text);

table1.First;

while not table1.Eof do begin

ad:=copy(edit1.Text,1,uzun);

ad1:=copy(Table1Ad.Text,1,uzun);

if(ad=ad1)then begin

listbox1.Left:=240;

listbox1.Top:=60;

edit4.Visible:=false;

checkbox1.Visible:=false;

listbox1.Visible:=true;

listbox1.Items.Add(Table1Ad.Text);

end;

table1.Next;

end;

neoturk: Forum - "acil komponent lazım"

ACİL COMPANENT LAZIM Bugün 16:00

Öncelikle Merhaba Tekrar ben bir şirkette çalışıyorum ve burda yazmış

olduğumuz bi program var program dışarıdan görüntü alıp bilgisayara kaydediyor

ve istenilen görüntüyü kaydet butonu ile capture(resimliyor) şimdi benim

ihtiyacım program görüntüyü gösterirken kullanılan componentten dolayı

görüntü kötü gösteriyor... şimdi bana gerekli olan güzel görüntüyü sağlayacak

bi companent ne olur crakli falan veya bedava güzel görüntü sağlayan bi

companent olsun çok acil lazım tek o kısım kaldı...

ne olur yardım edin bu sorun saç baş yolduruyor.... YARDDIIIIIIMMMMMMMM..........

LeWo

cevap:

resmin kalitesi varsayılan olarak %100 dür capture işlemlerinde.

bunun quality(kalite)'sini kod ile belirleyebilirsin.

%100 netlikte bir ekran görüntüsünü alan ve olağan kod aşağıdadır:

procedure ScreenShot(Bild: TBitMap);

var

c: TCanvas;

r: TRect;

begin

c := TCanvas.Create;

c.Handle := GetWindowDC(GetDesktopWindow);

try

r := Rect(0, 0, Screen.Width, Screen.Height);

Bild.Width := Screen.Width;

Bild.Height := Screen.Height;

Bild.Canvas.CopyRect(r, c, r);

finally

ReleaseDC(0, c.Handle);

c.Free;

end;

kullanımı:

//button1 on click olayına yazabilirsin,

screenshot(image1.Picture.bitmap);

forma 1 adet scrollbox yerleştir, içine image nesnesi yerleştir.

image nesnesinin autosize:=true değerini ata.

button yerleştir ve kodu yazıp çalıştır.

extra bir komponente ihtiyacın kalır mı bilmiyorum...

kolay gelsin..

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

.net ile delphi arasındaki ilişki nedir?

HER ŞEY TEMİZ BİR KOD BANKASI İÇİN

////////////////////////////////////////////////////////////////////////////

Lütfen tekrar kayıtlardan ve sorulardan mümkün olduğunca kaçalım.

////////////////////////////////////////////////////////////////////////////

(*bir örnek -> Bu örnekte uygulama içinde bir formu göstermek istiyoruz ama

oluşup oluşmadığını bilmiyorsak o formun unit'i içine böyle bir fonksiyon yazarsak

sorunsuz olarak form çalışacaktır.*)

procedure KayitGir(const BaskaOlustur:Boolean=False);//interface bloğunada tanımı eklenmeli

{eğer başka oluştur True ise o formdan tekrar tekrar oluşturur ki böyle olduğu zaman

verimli sistem kaynağı için formun onClose olayında Action:=caFree; kodu olmalıdır.}

var i:Integer; Form:TFormKayit;

begin

if BaskaOlustur then Form:=TFormKayit.Create(Application)

else begin

Form:=nil;

for i:=0 to Application.ComponentCount-1 do //uygulamada o formda oluşturulmu mu?

if Application.Components[i] is TFormKayit then

Form:=TFormKayit(Application.Components[i]);

if not Assigned(Form) then Form:=TFormKayit.Create(Application); //yoksa oluştur

end;

Form.Show; //göster

end;

////////////////////////////////////////////////////////////////////////////

.net ile delphi arasındaki ilişki nedir?

//delphi bitti diyenin alnı 1 karış, okumasını hiç mi hiç tavsiye etmem.

Sene 2000 ya da 2001 microsoft borland da çalışan delphinin babası diye tabir

edilen yazılımcıyı transfer etti (ismi şu anda aklımda değil). Çok kısa bir

süre sonra da .net framework teknolojisini çıkardı. .net'i inceleme fırsatım

o zamanlar yoktu ama şimdi kucağındayım. .net nesneleri ile delphinin sunduğu

nesne kütüphanelerinde ki nesneler neredeyse aynı. Özellikle geçenlerde uğradığım

bir .net forum sitesinde .netin List nesnesinden (delphi->TList) hayretle ve

hayranlıkla anlatmış. .net nesnelerinin bir çoğu (fazlasıyla) delphinin kütüphanesinde

zaten var ve dolayısıyla .net'e en kolay geçişi delphi projeleri sağlamaktadır.

(zaten C#'tan sonra .net'te proje yailabilen ilk dil delphidir.)

Yapmaları gereken göstericiler, bazı özel windows apileri varsa bunların .net için

geçiş ayarlarını yaptıktan sonra (ki bunlarla kimse kolay kolay çalışmaz,

çalışsa da çok özel sebepleri vardır.) projenin .net versiyonu hazır hale gelir.

.net ile en rahat çalışacak programlama dilinin delphi olduğunu fark ettim.

(C# zaten .net'i kullandığı için çevirme derdi yok . C++ ise bol bol API'lere

ve göstericilere yüklenen programcılarının başını biraz ağrıtacak. Visual Basic'e ise

zaten programlama dili değil paket program gözüyle bakıyorum, programcının

arkasından çevirdiği dolaplardan hiç kimsenin haberi yok.).

COM uygulamalarının Register'a geçirilmesi gerekiyordu fakat .net te her uygulama

parçası (.exe,.dll) bu bilgileri kendi içinde barındırıyor. Yani bir çeşit

interface bloğu. Mantık tamamen interface ile aynı. Bu blokta paylaşılan nesneler,

fonksiyonlar ve değişkenler belirtilir ve bu bölümü kullanacak diğer bölümler

paylaşılan özellikleri bu bloktan alır. .net ise bunu (.exe,.dll) içinde

gerçekleitirir (COM ve üstü teknolojilerdeki gibi register kaydı gerektirmez).

Üstelik eğer uygun kod yapısı varsa projeleri Kylix'te derlenirse proje Linux'ta da

kullanılabilir.

Borland işi en iyi seviyeye getirmiş olduğu halde delphi'nin işi nasıl bitti denilebir

çok şaşırıyorum. Zaten son yıllarda Borland ile Microsoft'un rekabet içinde olmadığına

kanaat getirdim, çünkü Microsoft'un geliştirdiği teknolojileri Borland hep en rahat

şekilde kullanılabilir hale getiriyor.

neoturk: INI dosya formatı kullanımı

"uses" bölümüne "INIfiles" kütüphanesini eklemeyi unutmayın.

aşağıdaki kod yapısını incelerseniz daha iyi anlayacaksınız.

{

An INI file stores information in logical groupings, called “sections.”

Within each section, actual data values are stored in named keys.

[Section_Name]

Key_Name1=Value1

Key_Name2=Value2

}

uses

IniFiles;

// Write values to a INI file

procedure TForm1.Button1Click(Sender: TObject);

var

ini: TIniFile;

begin

// Create INI Object and open or create file test.ini

ini := TIniFile.Create('c:MyIni.ini');

try

// Write a string value to the INI file.

ini.WriteString('Section_Name', 'Key_Name', 'String Value');

// Write a integer value to the INI file.

ini.WriteInteger('Section_Name', 'Key_Name', 2002);

// Write a boolean value to the INI file.

ini.WriteBool('Section_Name', 'Key_Name', True);

finally

ini.Free;

end;

// Read values from an INI file

procedure TForm1.Button2Click(Sender: TObject);

var

ini: TIniFile;

res: string;

begin

// Create INI Object and open or create file test.ini

ini := TIniFile.Create('c:MyIni.ini');

try

res := ini.ReadString('Section_Name', 'Key_Name', 'default value');

MessageDlg('Value of Section: ' + res, mtInformation, [mbOK], 0);

finally

ini.Free;

end;

// Read all sections

procedure TForm1.Button3Click(Sender: TObject);

var

ini: TIniFile;

begin

ListBox1.Clear;

ini := TIniFile.Create('MyIni.ini');

try

ini.ReadSections(listBox1.Items);

finally

ini.Free;

end;

ok.

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................

neoturk: INI dosya formatı kullanımı

"uses" bölümüne "INIfiles" kütüphanesini eklemeyi unutmayın.

aşağıdaki kod yapısını incelerseniz daha iyi anlayacaksınız.

{

An INI file stores information in logical groupings, called “sections.”

Within each section, actual data values are stored in named keys.

[Section_Name]

Key_Name1=Value1

Key_Name2=Value2

}

uses

IniFiles;

// Write values to a INI file

procedure TForm1.Button1Click(Sender: TObject);

var

ini: TIniFile;

begin

// Create INI Object and open or create file test.ini

ini := TIniFile.Create('c:MyIni.ini');

try

// Write a string value to the INI file.

ini.WriteString('Section_Name', 'Key_Name', 'String Value');

// Write a integer value to the INI file.

ini.WriteInteger('Section_Name', 'Key_Name', 2002);

// Write a boolean value to the INI file.

ini.WriteBool('Section_Name', 'Key_Name', True);

finally

ini.Free;

end;

// Read values from an INI file

procedure TForm1.Button2Click(Sender: TObject);

var

ini: TIniFile;

res: string;

begin

// Create INI Object and open or create file test.ini

ini := TIniFile.Create('c:MyIni.ini');

try

res := ini.ReadString('Section_Name', 'Key_Name', 'default value');

MessageDlg('Value of Section: ' + res, mtInformation, [mbOK], 0);

finally

ini.Free;

end;

// Read all sections

procedure TForm1.Button3Click(Sender: TObject);

var

ini: TIniFile;

begin

ListBox1.Clear;

ini := TIniFile.Create('MyIni.ini');

try

ini.ReadSections(listBox1.Items);

finally

ini.Free;

end;

ok.

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................

neoturk: Forum - "Ayarlar menüsü hakkında"

ayarlar menüsü yapma hakkında... Bugün 14:06

arkadaşlar ben bir programın ayarlar menüsünü yapmak istiyorum.

fakat ayarlar programın her açılışında yeniden sıfırlanıyor.

yapılan ayarları bir dosyada kaydetmem mi gerewkiyor acaba ?

ya da ne tür bir dosyada saklayabilirim ?

saklanan ayarları programın açılışında nasıl alabilirim ?

bana örnek bir program ( Source' ile birlikte ) gönderirseniz sevinirim...

teşekkürler...

EbrarTemizsoy

cevap:

ayarların saklanıp tekrar geri okutulması için en etkin yöntem,

INI dosya formatını kullanmaktır.

INI dosyasına ayarlar kaydedilir ve gerektiğinde okutulur.

Oluşturulan bu INI dosyası, exe program ile aynı klasöre konabilir,

veya windows klasörü altına da atılabilir. İlgili path ayarını program

içersinden belirtebilirsiniz.

Diğer bir yöntem ise Registry yapısını kullanmaktır.

( Bu yöntem biraz daha lüks, ve pc değiştirildiğinde veriler eski

pc nin registrinde kalabileceği için, INI dosyası program ile birlikte

taşınırsa daha makbuldur )

INI dosyasından parametre okutmak için:

//form create edilirken

procedure TForm1.FormCreate(Sender: TObject);

var x:string;ini:Tinifile;

begin

apppath:=extractfilepath(application.exename)+'';

x:=apppath+'ftp.ini';

ini:=Tinifile.Create(x);

try

x:=ini.ReadString('main','1','ftp.tripod.com');edit1.text:=x;

x:=ini.ReadString('main','2','sabriye');edit2.text:=x;

x:=ini.ReadString('main','3','');edit3.text:=x;

finally

ini.Free;

end;

INI dosyasına edit içeriklerini yazmak için

//form kapatılırken

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var x:string;ini:Tinifile;

begin

x:=apppath+'ftp.ini';

ini:=Tinifile.Create(x);

try

ini.writeString('main','1',edit1.text);

ini.writeString('main','2',edit2.text);

ini.writeString('main','3',edit3.text);

finally

ini.Free;

end;

Kodu iyi incele, anlayacaksın...

not: kendi yazdığım bir programdan keserek aldım.

"appath" adlı string değişkeni VAR kısmında tanıtmalısın....

kolay gelsin....

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................

neoturk: Forum - "Ayarlar menüsü hakkında"

ayarlar menüsü yapma hakkında... Bugün 14:06

arkadaşlar ben bir programın ayarlar menüsünü yapmak istiyorum.

fakat ayarlar programın her açılışında yeniden sıfırlanıyor.

yapılan ayarları bir dosyada kaydetmem mi gerewkiyor acaba ?

ya da ne tür bir dosyada saklayabilirim ?

saklanan ayarları programın açılışında nasıl alabilirim ?

bana örnek bir program ( Source' ile birlikte ) gönderirseniz sevinirim...

teşekkürler...

EbrarTemizsoy

cevap:

ayarların saklanıp tekrar geri okutulması için en etkin yöntem,

INI dosya formatını kullanmaktır.

INI dosyasına ayarlar kaydedilir ve gerektiğinde okutulur.

Oluşturulan bu INI dosyası, exe program ile aynı klasöre konabilir,

veya windows klasörü altına da atılabilir. İlgili path ayarını program

içersinden belirtebilirsiniz.

Diğer bir yöntem ise Registry yapısını kullanmaktır.

( Bu yöntem biraz daha lüks, ve pc değiştirildiğinde veriler eski

pc nin registrinde kalabileceği için, INI dosyası program ile birlikte

taşınırsa daha makbuldur )

INI dosyasından parametre okutmak için:

//form create edilirken

procedure TForm1.FormCreate(Sender: TObject);

var x:string;ini:Tinifile;

begin

apppath:=extractfilepath(application.exename)+'';

x:=apppath+'ftp.ini';

ini:=Tinifile.Create(x);

try

x:=ini.ReadString('main','1','ftp.tripod.com');edit1.text:=x;

x:=ini.ReadString('main','2','sabriye');edit2.text:=x;

x:=ini.ReadString('main','3','');edit3.text:=x;

finally

ini.Free;

end;

INI dosyasına edit içeriklerini yazmak için

//form kapatılırken

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var x:string;ini:Tinifile;

begin

x:=apppath+'ftp.ini';

ini:=Tinifile.Create(x);

try

ini.writeString('main','1',edit1.text);

ini.writeString('main','2',edit2.text);

ini.writeString('main','3',edit3.text);

finally

ini.Free;

end;

Kodu iyi incele, anlayacaksın...

not: kendi yazdığım bir programdan keserek aldım.

"appath" adlı string değişkeni VAR kısmında tanıtmalısın....

kolay gelsin....

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................

neoturk: Forum-" NMFTP1 Nesnesi"

NMFTP1 nesnesi 20 Kasım 2005 15:15

Arkadaşlar delphi 7.0 için bu nesneyi bulamıyorum bir ftp uploader yapmam

gerekiyor ama bu nesneden başka birşeyde username ve userid

tanımlayamıyorum. Yardımcı olursanız sevinirim. Şimdiden Tşkler

sacrifice

cevap:

Delphi 7.0 da bu nesne ve grup olarak diğer nesneler yok.

zaten Netmasters nesneleri winXP çıktıktan sonra çuvalladılar...

ayrıca,

userid'ye gerek yok artık. Bu parametre çok da işe yaramıyordu zaten.

Onların yerine yeni bir akım olarak INDY nesneleri geldi.

kendi yazdığım kod örneğini gönderiyorum, kodlara bakarak kendine göre

form dizaynını yaparsın artık:

*********************************

*** author: neoturk ***

*** subject: ftp upload INDY ***

*** date: 2003 ***

*********************************

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient, IdFTP, psvBasiclbl, psvBorderLabel, Gauges,

ComCtrls, StdCtrls,inifiles;

type

TForm1 = class(TForm)

Button6: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button7: TButton;

Memo1: TMemo;

Gauge1: TGauge;

psvBorderLabel1: TpsvBorderLabel;

IdFTP1: TIdFTP;

IdAntiFreeze1: TIdAntiFreeze;

ListBox1: TListBox;

UploadOpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button8: TButton;

Label4: TLabel;

Button9: TButton;

procedure IdFTP1Disconnected(Sender: TObject);

procedure IdFTP1Status(axSender: TObject; const axStatus: TIdStatus;

const asStatusText: String);

procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ListBox1DblClick(Sender: TObject);

procedure IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);

procedure IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

AbortTransfer: Boolean;

TransferrignData: Boolean;

BytesToTransfer: LongWord;

STime: TDateTime;

procedure ChageDir(DirName: String);

public

{ Public declarations }

end;

//written by neoturk - 2003

const notconnected='not connected...';

var

Form1: TForm1;

AverageSpeed: Double = 0;

apppath:string;

implementation

{$R *.dfm}

procedure Tform1.ChageDir(DirName: String);

begin

try

IdFTP1.ChangeDir(DirName);

IdFTP1.TransferType := ftASCII;

memo1.lines.add('Current Dir:'+IdFTP1.RetrieveCurrentDir);

listbox1.Items.Clear;

IdFTP1.List(listbox1.Items);

finally

end;

procedure TForm1.IdFTP1Disconnected(Sender: TObject);

begin

memo1.lines.add('Disconnected.');

end;

procedure TForm1.IdFTP1Status(axSender: TObject; const axStatus: TIdStatus;

const asStatusText: String);

begin

memo1.lines.add(asStatusText);

end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCount: Integer);

Var

S: String;

TotalTime: TDateTime;

H, M, Sec, MS: Word;

DLTime: Double;

begin

TotalTime := Now - STime;

DecodeTime(TotalTime, H, M, Sec, MS);

Sec := Sec + M * 60 + H * 3600;

DLTime := Sec + MS / 1000;

if DLTime > 0 then

AverageSpeed := {(AverageSpeed + }(AWorkCount / 1024) / DLTime{) / 2};

S := FormatFloat('0.00 KB/s', AverageSpeed);

case AWorkMode of

wmRead: label4.caption:='Download speed ' + S;

wmWrite: label4.caption:='Upload speed ' + S;

end;

if AbortTransfer then IdFTP1.Abort;

gauge1.Progress:=AWorkCount;

AbortTransfer := false;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if IdFTP1.Connected then try

if TransferrignData then IdFTP1.Abort;

IdFTP1.Quit;

finally

listbox1.Items.Clear;

end

else with IdFTP1 do try

User := trim(edit2.text);

Password := edit3.text;

Host := edit1.text;

Connect;

Self.ChageDir('/');

finally

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

idftp1.Disconnect;

end;

procedure TForm1.Button8Click(Sender: TObject);

Var

S: String;

begin

if not IdFTP1.Connected then begin memo1.lines.add(notconnected);exit;end;

S := InputBox('Make new directory', 'Name', '');

if S <> '' then

try

IdFTP1.MakeDir(S);

finally

end;

function GetNameFromDirLine(Line: String; Var IsDirectory: Boolean): String;

Var

i: Integer;

DosListing: Boolean;

begin

IsDirectory := Line[1] = 'd';

DosListing := false;

for i := 0 to 7 do begin

if (i = 2) and not IsDirectory then begin

IsDirectory := Copy(Line, 1, Pos(' ', Line) - 1) = '<DIR>';

if not IsDirectory then

DosListing := Line[1] in ['0'..'9']

else DosListing := true;

end;

Delete(Line, 1, Pos(' ', Line));

While Line[1] = ' ' do Delete(Line, 1, 1);

if DosListing and (i = 2) then break;

end;

Result := Line;

end;

procedure TForm1.Button1Click(Sender: TObject);

Var

Name, Line: String;

IsDirectory: Boolean;

begin

if not IdFTP1.Connected then begin memo1.lines.add(notconnected);exit;end;

Line := listbox1.Items[listbox1.ItemIndex];

Name := GetNameFromDirLine(Line, IsDirectory);

if IsDirectory then begin

// Change directory

ChageDir(Name);

end

else begin

try

SaveDialog1.FileName := Name;

if SaveDialog1.Execute then begin

IdFTP1.TransferType := ftBinary;

BytesToTransfer := IdFTP1.Size(Name);

IdFTP1.Get(Name, SaveDialog1.FileName, true);

end;

finally

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if not IdFTP1.Connected then begin memo1.lines.add(notconnected);exit;end;

if IdFTP1.Connected then begin

if UploadOpenDialog1.Execute then try

IdFTP1.TransferType := ftBinary;

IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));

ChageDir(idftp1.RetrieveCurrentDir);

finally

end;

procedure TForm1.Button3Click(Sender: TObject);

Var

Name, Line: String;

IsDirectory: Boolean;

begin

if not IdFTP1.Connected then begin memo1.lines.add(notconnected);exit;end;

Line := listbox1.Items[listbox1.ItemIndex];

Name := GetNameFromDirLine(Line, IsDirectory);

if IsDirectory then try

idftp1.RemoveDir(Name);

ChageDir(idftp1.RetrieveCurrentDir);

finally

end

else

try

idftp1.Delete(Name);

finally

ChageDir(idftp1.RetrieveCurrentDir);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if not IdFTP1.Connected then begin memo1.lines.add(notconnected);exit;end;

try

ChageDir('..');

finally end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if not IdFTP1.Connected then begin memo1.lines.add(notconnected);exit;end;

AbortTransfer := true;

end;

procedure TForm1.Button9Click(Sender: TObject);

var x:string;

begin

x:=apppath+'ftp_file_list.txt';

listbox1.Items.SaveToFile(x);

memo1.lines.add('saved:'+x);

end;

procedure TForm1.FormCreate(Sender: TObject);

var x:string;ini:Tinifile;

begin

apppath:=extractfilepath(application.exename)+'';

x:=apppath+'ftp.ini';

ini:=Tinifile.Create(x);

try

x:=ini.ReadString('main','1','ftp.tripod.com');edit1.text:=x;

x:=ini.ReadString('main','2','sabriye');edit2.text:=x;

x:=ini.ReadString('main','3','');edit3.text:=x;

finally

ini.Free;

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);

Var

Name, Line: String;

IsDirectory: Boolean;

begin

if not IdFTP1.Connected then exit;

Line := listbox1.Items[listbox1.ItemIndex];

Name := GetNameFromDirLine(Line, IsDirectory);

if IsDirectory then begin

// Change directory

ChageDir(Name);

end

else begin

try

SaveDialog1.FileName := Name;

if SaveDialog1.Execute then begin

IdFTP1.TransferType := ftBinary;

BytesToTransfer := IdFTP1.Size(Name);

IdFTP1.Get(Name, SaveDialog1.FileName, true);

end;

finally

end;

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

const AWorkCountMax: Integer);

begin

TransferrignData := true;

AbortTransfer := false;

STime := Now;

if AWorkCountMax > 0 then gauge1.Maxvalue := AWorkCountMax

else gauge1.maxvalue:= BytesToTransfer;

AverageSpeed := 0;

end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);

begin

memo1.lines.add('Transfer complete.');

BytesToTransfer := 0;

TransferrignData := false;

gauge1.Progress := 0;

AverageSpeed := 0;

end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key)=13 then

begin

key:=chr(0);

button6.onclick(sender);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var x:string;ini:Tinifile;

begin

x:=apppath+'ftp.ini';

ini:=Tinifile.Create(x);

try

ini.writeString('main','1',edit1.text);

ini.writeString('main','2',edit2.text);

ini.writeString('main','3',edit3.text);

finally

ini.Free;

end;

end.

//written by neoturk

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................