 |
|
25.12.2008, 19:54
|
|
Участник форума
Регистрация: 27.03.2008
Сообщений: 288
С нами:
9538880
Репутация:
83
|
|
народ, подскажите:
как включать/выключать звук в системе на Delphi n7?
|
|
|
25.12.2008, 20:47
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Так же всё ещё интересует вопрос, как с помощью компонента idhttp послать POST запрос с нужными мне кукисами, если кто знает то помогите плз.
|
|
|
|
25.12.2008, 20:53
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
Сообщение от Nightmarе
Так же всё ещё интересует вопрос, как с помощью компонента idhttp послать POST запрос с нужными мне кукисами, если кто знает то помогите плз.
юзай TIdCookieCollection - как-то так оно называется
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
25.12.2008, 21:13
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Я в курсе что есть такой компонент, но как бы я его не ковырял результата 0.
Судя по всему командой http.CookieManager.AddCookie
но как правильно запрос составить если ей? а то неохота с отслеживанием заголовков возиться 
Последний раз редактировалось Nightmarе; 25.12.2008 в 21:17..
|
|
|
|
25.12.2008, 22:35
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
TS: TStringList;
begin
TS := TStringList.Create;
TS.Add('123=fff');
IdHttp1.CookieManager.AddCookie('a=b','antichat.ru');
IdHTTP1.CookieManager.CookieCollection.Items[0].Path := '/';
IdHttp1.Post('http://antichat.ru', TS);
end;
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
26.12.2008, 17:45
|
|
Познающий
Регистрация: 07.06.2008
Сообщений: 48
С нами:
9434892
Репутация:
52
|
|
Помогите пожалуйста по RichEdit. Как мона вставить в середину какой-либо строки ричедита отформатированный текст? Вот например если отформатировать в вордпаде некоторые участки текста, загнать в буфер и вставить на ричедите, то он точно такой же и отобразится. Как сделать такое кодом?
|
|
|
|
26.12.2008, 22:29
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами:
10892546
Репутация:
2274
|
|
Такая вот проблема...
Создал TWebBrowser (wb1) в нём гружу с сайта форму, получаю имя поля в форме так
wb1.oleobject.document.getelementbyid('form').item (0).Name
'form' это имя формы, но если у формы нет имени, что делать?
=========
А, всё, додумал сам
Может кому надо
wb1.oleobject.document.forms.item(0).item(0).Name
Последний раз редактировалось Ponchik; 26.12.2008 в 22:33..
|
|
|
|
27.12.2008, 16:22
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
посылаю нажатие правой кнопки мыши,
соответственно cwnd - кнопка, у которой контекстное меню
Код:
SendMessage(cwnd,WM_RBUTTONDOWN,1,0);
SendMessage(cwnd,WM_RBUTTONUP,1,0);
всё нормально работает, но если дописываю
Код:
mwnd:=GetMenu(cwnd);
то прога висит (даже не висит, как будто специально ждет) до тех пор, пока меню не исчезнет (я не нажму по нему)
по идее меню инициализировалось, должен возвращаться его handle, однако после того как я на него нажимаю, прога получает сам cwnd
пробовал wm_initmenu и wm_initmenupopup, не очень врубился, ибо не могу получить handle меню, а это нужно сначала
wm_contextmenu пашет нормально, но эффект такой же как и от WM_RBUTTONDOWN и WM_RBUTTONUP (все события смотрел в спае)
вижу единственный вариант - делать в отдельном потоке, но хэндл меню получить не удается |
|
|
|
28.12.2008, 15:20
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
С нами:
10096166
Репутация:
120
|
|
Есть такой код:
Код:
procedure SendEmail(sTo, sFile: String);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add('This file- :lovi:))))');
M.From.Text := '"ci27" <ci27@mail.ru>'; //отправитель
M.Recipients.Add; // ci27@mail.ru
M.Recipients.Items[0].Text := '"Post" <'+sTo+'>'; //Получатель
M.MessageParts.Add;
TIdAttachmentFile.Create(m.MessageParts,sFile);
M.Subject := ':-)'; //Тема письма
Form1.IdSMTP1.AuthType := atSASL;
Form1.IdSMTP1.Host := 'smtp.mail.ru';
Form1.IdSMTP1.Port := 2525; // mail.ru 2525 порт использует
Form1.IdSMTP1.Username := 'ci27@mail.ru';
Form1.IdSMTP1.Password := '******';
Form1.IdSMTP1.Connect();
if Form1.IdSMTP1.Connected then
begin
Form1.IdSMTP1.Send(M);
end;
Form1.IdSMTP1.Disconnect;
end;
Почему он не работает? может где ошибка? Он даже к серверу конектица не хочет, хотя компилируется нормально использую Delphi 2007
Последний раз редактировалось xaker-boss; 28.12.2008 в 15:23..
|
|
|
|
28.12.2008, 15:29
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
у меня отправка с мыла на майле работала на стандартном порте и при AuthenticationType := atLogin
и username вроде надо без собаки и домена
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
