вывод из реестра адреса е-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]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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