Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

вывод из реестра адреса е-mail

Страницы: 1 2 >
kate158 © (2008-08-05 10:21:00)
Кто знает как вывести из реестра адрес почты?

Anatoly Podgoretsky (2008-08-05 11:29:00) [1]
> kate158 (05.08.2008 11:21:25) [25]

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

Dennis I. Komarov (2008-08-05 11:24:00) [2]
> Суть проблемы была в том

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

kate158 (2008-08-05 11:21:00) [3]
Суть проблемы была в том,что нужно было залезть в реестр и вывести в файл адрес почты.

brother (2008-08-05 11:14:00) [4]
зы заметь между [0] постом (вообще ничего не сказано по сути) и [6] (опять же не все) и [14] (опять не все), мы включали свои телепаторы...

brother (2008-08-05 11:11:00) [5]
> поэтому функция.

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

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

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

@!!ex (2008-08-05 11:11:00) [6]
Мда... Знакомая ситуация...
Не далее чем вчера писал шейдер, рейтрейса для отражений...
Когда я пробовал думать мозгом, то видуха отказывалась делать то, что мне надо...
А вот когда я мозг отключил, то шейдер заработал... Честно говоря я до сих пор не понимаю как он работает... Я не понимаю ПОЧЕМУ он работает... Но результат ровно тот, который мне нужен... При этом я уверен на 99%, что код НЕ правильный...

kate158 (2008-08-05 11:09:00) [7]
нет,не одно значение.этот код ЧАСТИЧНЫЙ.поэтому функция.
По поводу "мозгов" и "девушки жгут" -Просьба к участникам быть взаимовежливыми, профессионалам отдельная просьба - быть снисходительными..

{RASkov} (2008-08-05 11:05:00) [8]
> [14] kate158 (05.08.08 10:59)
> пока все работает.)

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

brother (2008-08-05 11:04:00) [9]
> уже ни в чем.сама вродеразобралась

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

{RASkov} (2008-08-05 11:04:00) [10]
> [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...
В общем - двойка, садись :)

Medbe}I{onok XML (2008-08-05 11:04:00) [11]
а зачем тебе assign?

kate158 (2008-08-05 11:02:00) [12]
уже ни в чем.сама вроде разобралась

brother (2008-08-05 11:01:00) [13]
и в чем проблемма то?

kate158 (2008-08-05 10:59:00) [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);
пока все работает.)

Medbe}I{onok XML (2008-08-05 10:42:00) [15]
ну как каким. прикольно же.

Сергей М. (2008-08-05 10:38:00) [16]

> kate158

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

brother (2008-08-05 10:34:00) [17]
> f:='C:\ + '.xml';

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

kate158 (2008-08-05 10:32:00) [18]
f:='C:\ + '.xml';
опечатка

brother (2008-08-05 10:31:00) [19]
внятно скажи, что тебе требуется сделать?

brother (2008-08-05 10:30:00) [20]
> f:='C:\ + ' .txt';
> assignfile(s,f);
> st.Add('<? xmlversion="1.0" encoding="windows-1251" standalone="no"?
> >');

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »