РУгается на строку HTTP.Request.CustomHeaders.Add говорит : Code: [Error] Unit1.pas(65): Constant object cannot be passed as var parameter Функция Pars выглядит так Code: function Pars(T_ : string; var ForS: string; _T: string): string; var a, b: Integer; begin if (T_ <> '') and (ForS <> '') and (_T <> '') then begin a := Pos(T_, ForS); Result := Copy(ForS, a + Length(T_), Length(ForS)); b := Pos(_T, Result); Result := Copy(Result, 1, b - 1); if (a>0) and (b>0) then Delete(ForS,a,b+length(_T)+length(T_)-1) else result:=''; end else Result := ''; end;
В функцию Pars в качестве второго параметра передавай не http.Response.RawHeaders.Text, а переменную типа string. После этого можешь присвоить http.Response.RawHeaders.Text значение используемой переменной.
Народ, подскажите, создал динамически форму и кнопки, а как к ним события создать на тот же самый онклик или онклоз?
прототип процедуры прописуешь в public declaration, потом уже вызываешь onclick или что там тебе надо.
эх смотри ... public {public declaration} procedure onclick(sender:tobject); ... {$R *.dfm} procedure TForm1.onclick(Sender: Tobject); begin showmessage('123'); end; somecode по событию onclick динамического объекта вызываешь процедуру то-бишь b:tbutton; b.onclick:=onclick;
Почему в приватах описывать? Достаточно объявить процедуру в описании класса: PHP: type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure DoSomething(Sender : TObject); private { Private declarations } public { Public declarations } end; Мб чет не догнал...
В программе есть компонент memo в который каждую минуту добавляеться строка вида: т.е две строки, проблеиа в том что если пройдет 5 минут то уже будет 10 строк в поле memo, как можно сделать чтоб в данном поле очищалось например каждые 2 минуты ? или же чтоб запись перезаписывалась на более новую, а старая не сохранялась ?
Кинь на форум таймер , сделай что бы каждые 2 минуты тебе очищалось мемо , мож условия задать если надо ..
если у тебя в memo ещё строки то делай не add а insert или insertin точно не помню. тогда у тебя будут просто заменятся эти две строки
Подскажите код на делфи.. вот хочу допустим я снять хук (руками через антируткит не успеваю до запуска игры.. (запускается античит)) допустим сделать мини патч.. что бы снимал все заданые хуки... ну допустим вот эти - реально ли написать такой антихук что бы он снимал их сам..? объясните хто не злой
SNAIPER ShoT, это хуки SSTD в ядре, что бы их снять нужно писать драйвер (что на делфи можно конечно сделать, прецеденты были, но это безумие =D)
http://l2top.ru/vote/1632/ подскажите пожалуйста как капчу получить от сюда...? целый день провозился не чего не получилось
Запросы шлет флешка, загрузи ее отдельно от страницы и смотри куда и что шлет. Но хочу тебя огорчить, она картинки получает зашифрованные, и расшифровывать их предстоит тебе http://l2top.ru/StrongCaptcha.swf?19 - флешка http://l2top.ru/cryptImg.php?key=56e8707efa1d1fa7f32297452ddcb480 - картинка. Всех благ =-)
Имеется 2 вопроса: 1. Что означают цифры в начале и конце ответа с апача? Code: HTTP/1.1 200 OK Date: Sun, 11 Sep 2011 19:41:14 GMT Server: Apache/1.3.41 (Unix) PHP/4.4.9 X-Powered-By: PHP/4.4.9 Connection: close Transfer-Encoding: chunked Content-Type: text/plain; charset=utf-8 6 <--это 9.8960 0 <--и это 2. Почему пр иработе с Winsock и отправке HTTP запроса - такое не канает? Code: var html:pchar; begin html:=PChar('GET / HTTP/1.1'$13#10+ 'Host: some.ru'#13#10+ 'Connection: close'#13#10#13#10); Send(Sock, html, length(html), 0); end; Сервер возвращает, что ошибка в запросе. А если построчно все это отправляю через ф-ю: Code: procedure SendString(s: string); var Buffer: array[0..255] of char; begin StrPCopy(Buffer, s); Send(Sock, Buffer, length(s), 0); end; то все проходит наура... Как вообще мне отправить запрос, не разбивая на строки, т.е. как указано в примере выше?
ну судя по внутренностям флешки, то там используется DES, ну а как он используется - это ты уже сам думай)