Скачать: CL | DM;

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))

---

← →
Cranium ©   (2003-03-24 10:18) [10]

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

---

← →
Anatoly Podgoretsky ©   (2003-03-24 10:30) [11]

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

---

← →
mrcat ©   (2003-03-24 11:47) [12]

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

---

← →
Cranium ©   (2003-03-24 15:29) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c