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

вывод из реестра адреса е-mail   Найти похожие ветки 

← →
kate158   (2008-08-05 10:21) [0]

Кто знает как вывести из реестра адрес почты?

---

← →
Medbe}I{onok XML ©   (2008-08-05 10:22) [1]

вывести в оффшор или куда?

---

← →
kate158   (2008-08-05 10:23) [2]

вывести в текстовый файл и сохранить в опр папке

---

← →
Anatoly Podgoretsky ©   (2008-08-05 10:23) [3]

> kate158  (05.08.2008 10:21:00)  [0]

Адрес почты это строка, значит ReadString

---

← →
Medbe}I{onok XML ©   (2008-08-05 10:24) [4]

with TFileStream.Create("Определенная папка\Файл.txt") do
try
 WriteBuff(.......);
finally
 Free
end;

---

← →
Anatoly Podgoretsky ©   (2008-08-05 10:24) [5]

> kate158  (05.08.2008 10:23:02)  [2]

WriteLn
А имя папки и файла задается в AssignFile

---

← →
kate158   (2008-08-05 10:29) [6]

есть TStringList. добавление идет методом add.как прописать в add почту из реестра
procedure TForm1.Button3Click(Sender: TObject);
var
st:TStringList;
begin
st:=TStringList.Create;
f:="C:\ +  ".txt";
assignfile(s,f);
st.Add("<?xml version="1.0" encoding="windows-1251" standalone="no"?>");
st.SaveToFile(f);

---

← →
Medbe}I{onok XML ©   (2008-08-05 10:30) [7]

ёшкин кот ..... и стринглист и ассайн и рукотворный xml

---

← →
brother ©   (2008-08-05 10:30) [8]

> f:="C:\ +  ".txt";
> assignfile(s,f);
> st.Add("<?xml version="1.0" encoding="windows-1251" standalone="no"?
> >");

О_о фигасе текстовый файл ;)
ты хоть понимаешь, что делаешь? это уже не просто текстовый файл, а файл формата xml, ты про его структуру что-либо слышал?

---

← →
brother ©   (2008-08-05 10:31) [9]

внятно скажи, что тебе требуется сделать?

---

← →
kate158   (2008-08-05 10:32) [10]

f:="C:\ +  ".xml";
опечатка

---

← →
brother ©   (2008-08-05 10:34) [11]

> f:="C:\ +  ".xml";

это не опечатка, а фигня, структура то где? в st? что-то мне подсказывает, что там никакой структурой xml и не пахнет...

---

← →
Сергей М. ©   (2008-08-05 10:38) [12]

> kate158


Каким боком соприкасаются реестр, email-адрес и XML ?

---

← →
Medbe}I{onok XML ©   (2008-08-05 10:42) [13]

ну как каким. прикольно же.

---

← →
kate158   (2008-08-05 10:59) [14]

какая разница какой файл?не в этом был вопрос. короче.
procedure TForm1.ReadRegistrySettings;
begin
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;//залезаю в реестр
Reg.OpenKey("\SOFTWARE\NP ATS\Request standalone client\Sender",False);
strRegSenderEmail:= Reg.ReadString("E-mail");

далее
procedure TForm1.Button3Click(Sender: TObject);
var s:TextFile;
f:string;
Year, Month, Day: Word;
st:TStringList;
begin
ReadRegistrySettings;
st:=TStringList.Create;
f:="C:+ ".xml";
assignfile(s,f);
st.Add("<?xml version="1.0" encoding="windows-1251" standalone="no"?>");и тд
st.Add("consolidated=""+strRegSenderConsolidated+" sent="" received="False"");
st.Add("target-date value=""+ result+"/>");
st.SaveToFile(f);
пока все работает.)

---

← →
brother ©   (2008-08-05 11:01) [15]

и в чем проблемма то?

---

← →
kate158   (2008-08-05 11:02) [16]

уже ни в чем.сама вроде разобралась

---

← →
Medbe}I{onok XML ©   (2008-08-05 11:04) [17]

а зачем тебе assign?

---

← →
{RASkov} ©   (2008-08-05 11:04) [18]

> [14] kate158   (05.08.08 10:59)
> procedure TForm1.ReadRegistrySettings;

Если эта "штука" достает из реестра всего лишь одно значение, то есть смысл сделать ее функцией и избавиться от глобальной переменной...

> st:=TStringList.Create;
> f:="C:+ ".xml";
> assignfile(s,f);
> st.Add("<?xml version="1.0" encoding="windows-1251" standalone="no"?
> >");и тд
> st.Add("consolidated=""+strRegSenderConsolidated+" sent=""
> received="False"");
> st.Add("target-date value=""+ result+"/>");
> st.SaveToFile(f);

Не верный код. Т.е. или сам(а) сохраняй assignfile или TStringList...
В общем - двойка, садись :)

---

← →
brother ©   (2008-08-05 11:04) [19]

> уже ни в чем.сама вроде разобралась

О_о девушки опять жгут? ;)

---

← →
{RASkov} ©   (2008-08-05 11:05) [20]

> [14] kate158   (05.08.08 10:59)
> пока все работает.)

кроме твоих мозгов.... уж сорри, но это так
:о)

---

← →
kate158   (2008-08-05 11:09) [21]

нет,не одно значение.этот код ЧАСТИЧНЫЙ.поэтому функция.
По поводу "мозгов" и "девушки жгут" -Просьба к участникам быть взаимовежливыми, профессионалам отдельная просьба - быть снисходительными..

---

← →
@!!ex ©   (2008-08-05 11:11) [22]

Мда... Знакомая ситуация...
Не далее чем вчера писал шейдер, рейтрейса для отражений...
Когда я пробовал думать мозгом, то видуха отказывалась делать то, что мне надо...
А вот когда я мозг отключил, то шейдер заработал... Честно говоря я до сих пор не понимаю как он работает... Я не понимаю ПОЧЕМУ он работает... Но результат ровно тот, который мне нужен... При этом я уверен на 99%, что код НЕ правильный...

---

← →
brother ©   (2008-08-05 11:11) [23]

> поэтому функция.

и где там функция?

> этот код ЧАСТИЧНЫЙ

тогда ошибка в 17 строке...мы должны гадать, что ты там делаешь и как?

---

← →
brother ©   (2008-08-05 11:14) [24]

зы заметь между [0] постом (вообще ничего не сказано по сути) и [6] (опять же не все) и [14] (опять не все), мы включали свои телепаторы...

---

← →
kate158   (2008-08-05 11:21) [25]

Суть проблемы была в том,что нужно было залезть в реестр и вывести в файл адрес почты.

---

← →
Dennis I. Komarov ©   (2008-08-05 11:24) [26]

> Суть проблемы была в том

Суть не в этом, а в том, что не умеешь формулировать свои мысли, или, что еще хуже, сама не понимаешь чего требуется...

---

← →
Anatoly Podgoretsky ©   (2008-08-05 11:29) [27]

> kate158  (05.08.2008 11:21:25)  [25]

В первых пяти сообщениях тебе все рассказали, последовательно по мере раскрытия тайны, но ты решила идти своим путем.
Нафига AssignFile и StringList - это взаимоисключающие вещи. Либо ты используешь низкоуровневые функции (TFileStream), либо высокоуровневые функции (WriteLn), либо вообще отказываешься от работы с файлами (TStringList).

---

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

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



Память: 0.51 MB
Время: 0.016 c