INI Files

[king_programmer]

سلام.من میخوام وقتی روی دکمه ای کلیک کردم یک فایل ini با نام db.ini ساخته بشه.

از کد زیر استفتده کردم ولی جواب نداد.
uses INIFiles




پروسیجر دکمه



Var

myiniFile : TINIFile;
Begin
myiniFile:=TINIFile.Create('db.ini');




کسی مشکل منو میدونه؟ ممنون

[hojjatcroos]

خوب باید از فایل ini استفاده کنید و مسیر فعلی پوشه رو برای ساختن بدهید


procedure TForm1.Button1Click(Sender: TObject);
Var
myiniFile : TINIFile;
Begin
myiniFile:=TINIFile.Create(GetCurrentDir+'\db.ini' );
myiniFile.WriteString('a','a','My ini') ;
end;

[MSHService]

راهت درست بود ولي چون ادرس نمي دادي فايلت تو پوشه ويندوز ساخته ميشد.
دوستون كاملش كردن.
منظورم این بود با دستور


ini:=TiniFile.create('myfile.ini')
ini.writeString('Const Section','Const Line','Value')

که دوستمون نوشته بودن فقط فایلش تو WinDir ساخته میشه.
بخدا منظوری نداشتم من هیچی بلد نیستم.
معذرت اگه ناراحتتون کردم.

[hojjatcroos]

نه عزیزم کامل نکردم درست کردمش من توی دلفی 7 با کد زیر نمی شه یک فایل INI ساخت


procedure TForm1.Button1Click(Sender: TObject);
Var
myiniFile : TINIFile;
Begin
myiniFile:=TINIFile.Create('C:\db.ini');
end;

[king_programmer]

procedure TForm1.Button1Click(Sender: TObject);
Var
myiniFile : TINIFile;
Begin
myiniFile:=TINIFile.Create(GetCurrentDir+'\db.ini' );
myiniFile.WriteString('a','a','My ini') ;
end;


جواب نداد.

[MSHService]

سلام
رفيق يه نمونه برنامه برات الصاق كردم.
اميدوارم كارت راه بيفته.

[king_programmer]

سلام آقاي MSHService .از كمك شما ممنونم.ولي وقتي پروژه را اجرا ميكنم از اين كد اشكال ميگيره.

در قسمت uses

JclIniFiles

[hojjatcroos]

اون Uses رو پاک کنید فکر نکنم مشکلی پیش بیاد.

[MSHService]

عزیز اونو پاک کن.

[king_programmer]

اون Uses رو پاک کنید فکر نکنم مشکلی پیش بیاد.
از كمك شما هم ممنونم

[king_programmer]

از لطف همه دوستان ممنون.
اگه ميشه يه كم در مورد پارامتر هاي WriteString و ReadString توضيح بدين!
من ميخوام توي اين فايل ini آدرس فايل ها رو با نام اونها ذخيره كنم.چطوري مي تونم به اونها پارامتر بدم؟

[MSHService]

منظورت رو نمیفهمم عزیز.
مگه مثال کامل نبود؟


var
ini: TIniFile;
begin
ini := TIniFile.Create('.\MSH.ini');
ini.WriteString('File Address', 'FileName', 'path');
ini.WriteString('File Address',ExtractFileName( Application.ExeName), Application.ExeName);
ini.Free;
end;

http://delphi.about.com/od/objectpascalide/a/tinifile.htm
http://compactwater.wordpress.com/2007/08/20/working-with-ini-files-in-delphi/
http://www.swissdelphicenter.ch/torry/showcode.php?id=160
همینو می خواستی؟

[king_programmer]

ميخواستم بدونم چطوري نام بانك و آدرس اونو تو فايل ini ذخيره كنم.
برنامه من طوريه كه بايد نام بانك و ادرس بانك و اين كه برنامه از چه بانكي استفاده ميكند( بانك فعال) در فايل ini ذخيره بشه و نام تمام بانك هاي موجود در جعبه ليست اضافه بشه.
از دوستاني كه ميتونند كمك كنند ممنونم

[hojjatcroos]

اگه برنامه خودتون را آپلود کنید بهتر میشه

[king_programmer]

اگه برنامه خودتون را آپلود کنید بهتر میشه
شرمنده نبايد لو بره. اين برنامه رو براي يه نفر ديگه مينويسم. پروژه كتابخانه هستش.
ممنون

[hojjatcroos]

خوب بگید آیا آدرس بانکتون ثابت و در خود فایل پروژه هست یا نه

[king_programmer]

خوب بگید آیا آدرس بانکتون ثابت و در خود فایل پروژه هست یا نه

نه نيست-تعداد بانك ساخته شده نام معلوم و ادرس انها هم نا معلوم است

[hojjatcroos]

خوب بالاخره فهمیدم چه طور آدرس بانکتون رو به دست بیاورید هر Connection String چند ویژگی داره که ویژگی پنچم مربوط به آدرس بّانک هست با کد زیر می تونید این کار رو انجام بدهید.


Form1.Caption:=ADOConnection1.ConnectionObject.Pro perties.Item[5].Value

[king_programmer]

Form1.Caption:=ADOConnection1.ConnectionObject.Pro perties.Item[5].Value
خيلي ممنون از شما hojjatcroos
ولي اين كد فقط يه شماره به من داد"501"
مشكل از كجاست

[hojjatcroos]

فایل زیر رو ببین با یکی از مقاله های آقا محمود(دستکاری رشته ها) برات درستش کردم.