config form

[mkzw0ot4m0nk]

hey, i made a program that shows the current song that is being played on winamp and the song name uploads to my site. many of my friends want this program and i dont mind them using it but i have it configured for me. how can i make a configure form so they can enter there ftp stuff and click ok and it will then be configured for them? im using IdFTP heres the section of code for that.

IdFTP1.Host := 'ftp.myurl.com';
IdFTP1.User := 'myusername';
IdFTP1.Password := 'mypassword';
IdFTP1.Connect(true);
IdFTP1.ChangeDir('public_html/mystuff);
IdFTP1.Put('c:\currentsong.txt','currentsong.txt',false);
IdFTP1.Disconnect;

THANKS

 

[mikeEd]

Just create a form with fields for the user specific data you've listed there and use a TIniFile object to store it in a .ini file.

 

[mkzw0ot4m0nk]

can u go into more detail pleasE?

 

[mkzw0ot4m0nk]

i cant find tinifile where is it?

 

[LucieLastic]

Stick Inifiles in your USES clause.

 

[mikeEd]

Just look for TiniFile in the help.

 

[mkzw0ot4m0nk]

i did do help, but i cant fine the freakin object to put on the form? what section is it under?

 

[mikeEd]

No, you have to explcitly declare/instantiate it yourself.
eg.

var
ini: TIniFile;
...

ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');

 

[Fluke026]

Don't forget to free the Inifile after you finish with it. Something like this.


var
ini: TIniFile;
...

try
ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
{...process ini here...}
finally
ini.free;
end; {try/finally}

This code assures that even if something goes wrong while processing, the program will still release the memory being used by ini.

 

[mkzw0ot4m0nk]

ive been lookin everywhere for help with tinifile. can someone give me a example program? link? how to do it?

 

[McMerfy]

Fluke, constructors should be called outside try..finally/except blocks. Your example:

try
   ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
   {...process ini here...}
finally
   ini.free;
end;

Here if TIniFile.Create fails ini.Free would give you an Access Violation.

mkzw0ot4m0nk if you have Delphi help then in your code (anywhere) type TIniFile, select it and press Ctrl+F1.
Don't forget to delete word TIniFile afterwards. If you don't have Delphi help, then get it! You can also find IniFiles.pas file somewhere in your Delphi directory open it, find declaration of TIniFile class and look at the public properties and methods of it. Their names will tell you a lot, trust me.

--- markus

 

[mikeEd]

On your application's startup do something like this to read the values from the file:

   ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
   IdFTP1.User := ini.ReadString('Settings', 'Username', '');
   ...
   etc.
   ini.free;

And when you want to save config settings to the file just do something like:

   ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
   ini.WriteString('Settings', 'Username', usernameEdit.Text);
   ...
   etc.
   ini.free;

The ini you're writing to/reading from will look something like

[Settings]
Username=Bob
Password=pwd

etc.

 

[mkzw0ot4m0nk]

thanks a lot for helping me guys. just one more question, how can i have it try to attempt to connect if the configure window is open?

 

[mikeEd]

Are you asking how to test the connection settings?

try
   IdFTP1.Connect(true);
except
   //couldn't connect
end;

 

[mkzw0ot4m0nk]

oops dangit, i meant...
how can i make it NOT try to attempt to connect when the configure page is open?

 

[mikeEd]

Why would it?

 

[mkzw0ot4m0nk]

cuz my program was designed to connect on startup without them clicking connect.. how can i have it NOT connect when the Configure window is open?

 

[mikeEd]

Well surely you just need to disconnect when they open the configure window? Or are you saying that the config tool will be a separate application?

 

[mkzw0ot4m0nk]

i thought there would be a 'if' command.

 

[mikeEd]

I'm confused.