21.12.2008, 18:02
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
если проверяешь в начале строки
Код:
if Pos('%%',msg)=1 then begin //позиция в строке
s:=copy(msg,3,MaxINT);//в переменной s теперь то, что после %% и до конца
//ни у дальше че те надо, вносит в TStringList и т.п.
end;
ну и есть еще много вариантов
а, ну чтоб смотреть соответствия, вносить туда, я юзал TStringList или массив record'ов, можно, что наверное и лучше, юзать бд
Последний раз редактировалось crystalbit; 21.12.2008 в 18:09..
|
|
|
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..
|
|
|
|
12.01.2009, 08:33
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Подскажите плз, как отправить POST запрос сайту с помощью сокетов (ClientSocket), и при этом чтобы заголовок был:
Код:
Host: www.lol.ru
User-Agent: Mozilla/5.0
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Я с сокетами никогда не работал поэтому принципа незнаю.
Последний раз редактировалось Nightmarе; 12.01.2009 в 08:45..
|
|
|
|
12.01.2009, 16:33
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Есть ли в сети исходники программ клиент\сервер которые обмениваются данными через какой нибудь гейт на сайте?
Так-же как в квипе реализован обмен файлами.
|
|
|
|
13.01.2009, 14:05
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Вопрос по отправке POST запроса + заголовок через WinSock, я делаю запрос:
Код:
SendString('POST /lol.php HTTP/1.1'#13#10);
SendString('Host: www.shinobi.net.ru'#13#10);
SendString('User-Agent: pizda'#13#10);
SendString('Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5'#13#10);
SendString('Accept-Language: ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3'#13#10);
SendString('Content-length: 23'#13#10);
SendString('Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'#13#10);
SendString(#13#10);
SendString('param1=val1¶m2=val2'#13#10);
Сайту успешно передаётся заголовок, но не передаётся сам POST запрос (param1=val1¶m2=val2), где в запросе ошибка??? |
|
|
|
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. Как мона вставить в середину какой-либо строки ричедита отформатированный текст? Вот например если отформатировать в вордпаде некоторые участки текста, загнать в буфер и вставить на ричедите, то он точно такой же и отобразится. Как сделать такое кодом?
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
