IniFiles и диалог выбора файла.....

← →
Cranium © (2003-03-23 22:09) [0]

Вот код процедуры (IniFile := TIniFile.Create(".\conbase.ini")) строка при создании формы....

procedure TFormConnect.Button2Click(Sender: TObject); begin // If RButtonD.Checked = True then begin IniFile.WriteString("BaseOption", "Connect", "Remote"); IniFile.WriteString("BaseOption", "Server", EditServ.Text); IniFile.WriteString("BaseOption", "Protocol", ComboBoxPR.Text); end; // If RButtonL.Checked = True then begin IniFile.WriteString("BaseOption", "Connect", "Local"); end; // IniFile.WriteString("BaseOption","BasePathe", EditPatch.Text); IniFile.WriteString("ConnectOption", "User", EditUser.Text); IniFile.WriteString("ConnectOption", "Pasword", EditPW.Text); IniFile.WriteString("ConnectOption", "Role", EditRole.Text); IniFile.WriteString("ConnectOption", "CharSet", ComboBoxChar.Text); If CheckBoxLog.Checked = True then IniFile.WriteString("ConnectOption", "CkekedConnect", "Yes") else IniFile.WriteString("ConnectOption", "CkekedConnect", "No"); IniFile.Free; end;
Так вот если в поле EditPatch.Text вписать тест ручками все работает, а если с помощью следующего кода
If OpenDL.Execute=True then EditPatch.Text:=OpenDL.FileName;
То запись в ini файл не производиться или файл вообще не создается

← →
Cranium © (2003-03-23 23:25) [1]

Кое что прояснилось, это происход только при выборе занятокого файла....

← →
mrcat © (2003-03-23 23:46) [2]

>>Так вот если в поле EditPatch.Text вписать тест ручками все работает, а если с помощью следующего кода

что "работает"/"не создается"?! приводите код полностью, а не бессмысленными кусками.

← →
Palladin © (2003-03-24 00:35) [3]

как понимать "занятокого файла"
чем занятокого?

← →
Cranium © (2003-03-24 02:37) [4]

> что "работает"/"не создается"?! приводите код полностью,
> а не бессмысленными кусками

Что весь проект?:))))
Что еще прислать, преведена вся процедура которя не работае! Вернее работает, если не выполнять код приведенный в конце....

А насчет "занятого файла", то есть при конфликте совместного доступа к файлу, я погарячился - это не причем.......

← →
Cranium © (2003-03-24 05:41) [5]

CСменил OpenDialog на TFilenameEdit из набора RX, эфект тот же...:(((

← →
_Shade (2003-03-24 06:29) [6]

Что снова не может открыть уже открытый чем-либо файл? Так оно и не получится!

← →
Anatoly Podgoretsky © (2003-03-24 08:12) [7]

Кто же так делает, это путь относительный - TIniFile.Create(" .\conbase.ini"), сменился текущий каталог и капут.
Кроме того в Button2Click нет никой защиты от ошибок, чуть что и опять хана.

← →
PGM (2003-03-24 08:47) [8]

Согласен с Anatoly Podgoretsky.
Относительный путь - главная причина. Я обычно использую ExtractFilePath(PsramStr(0)) для вычисления пути - универсальное решение и для программ с VCL и для консольных.

← →
PGM (2003-03-24 08:48) [9]

Опечатка. Правильно - ExtractFilePath(ParamStr(0))

Я Конечно все понимаю, но почему тогда все работает до тех пор пока не сделать OpenDL.Execute=True (где OpenDL это TOpenDialog),
более того, после наблюдаются еще более интересные глюки ... А если TOpenDialog не вызывать, а в EditPatch.Text писать путь руками все работает Кому интересно могу бросить весь исходник, но относительный путь тут не причем.... А сообщение об ошибки не возникает, просто файл не записывается...

А потому что ты там можешь менять текущий каталог и тогда будет записан или не будет в другой каталог.
Ну если ты считаешь, что не причем, то это твое право, но товоя программа не расчитана на правильную работу.

Удалено модератором
Примечание: Личная переписка

Пора бросать по ночам работь, на трезвую голову дошло:)))))

IniFiles и диалог выбора файла..... Найти похожие ветки