все отредактировал, спс, а скажи как такойже dll создать? чтоб при запуске той или иной проги какоето сообщение было З.Ы че у тя за редактор который в строчку показывает код?
Делаю POST запрос. Он проходит удачно, но ответ пустой. Запрос на получение информации, в ответе мне должна прийти информация, а приходит пустота. Как получить ответ с post запроса. Делал так: Memo1.Text := IdHttp1.Post('url', data); но не сработало upd Нашел код. Code: var data: TIdMultiPartFormDataStream; begin data := TIdMultiPartFormDataStream.Create; try data.AddFormField('param1', 'value1'); data.AddFormField('param2', 'value2'); data.AddFormField('param3', 'value3'); Memo1.Lines.Text := IdHTTP1.Post('запрос', data); finally data.Free; end; end; но не получается импортировать инф-цию из Edit1 в value1 как сделать? upd сейчас ваще ошибка http/1.1 500 Internal Server Error upd сделал Code: var data: tstringlist; begin data := tstringlist.Create; try data.Add('параметр'); data.Add('параметр'); data.Add('параметр'); data.Add('параметр'); Memo1.Lines.Text := IdHttp1.Post('URL', data); finally data.Free;
всмысле? скади чем ты открывал , прост я когда редактирую у меня потом не коректно оторажается, а у тебя оно в столбик
почему 2 запроса склеиваются в 1 ? httpsend.HTTPMethod('get','http://site.ru/registered.php'); HTTPSend.Headers.Clear; httpsend.Document.Clear; httpsend.HTTPMethod('get','http://site.rus/UserStatistic.asp?UID=13&SID='+str+'&IPAddr=11.11.11.11&Referer=&UserAgent=Opera/9.11 (Windows NT 5.0; U; ru)'); в результате отправляется вот такой запрос в 1 пакете: Code: GET /registered.php HTTP/1.0 Host: site.ru Connection: close User-Agent: Opera/9.11 (Windows NT 5.0; U; ru) GET /scripts/UserStatistic.asp?UID=13&SID=93137889&IPAddr=11.11.11.11&Referer=&UserAgent=Opera/9.11 (Windows NT 5.0; U; ru) HTTP/1.0 Host: site.ru Connection: close Cookie: PHPSESSID=c5a14fb1a040d6c691d55ea044aee431; User-Agent: Mozilla/4.0 (compatible; Synapse) в итоге серв возвращает: HTTP/1.1 400 Bad Request ... если второй запрос будет вот такой: httpsend.HTTPMethod('get','http://site.rus/UserStatistic.asp?UID=13&SID='+str+'&IPAddr=11.11.11.11&Referer=&UserAgent=Opera'); (удалил /9.11 (Windows NT 5.0; U; ru) HTTP/1.0) то отправляется как надо , т.е 2 запроса в чем косяк ?? UPD: Заменил на: Opera%2F9.11+%28Windows+NT+5.0%3B+U%3B+ru%29 стало норм отправлятся
И так очень простая задача. Нужно закоментить некоторые вещи, помогите плз)))))) 1. Задано мнoжество персональных ЭВМ, которыми обеспечены инcтитуты: Intel Pentium/Celeron, AMD K6/Athlon, AMD K6/Duron, AS-400. Известен набор машин, имеющихся в кaждом институте. Количество институтов - 3. Требуется пoстроить и распечатать множество, включающее в себя ЭВМ: 1) которые имеет хотя бы один институт; 2) которых нет ни в одном институте. PHP: uses crt; Const N=3; Type //че это Pr=(intel,ath,dur,as_); As=set of product; Inst=array[1..n] of assort; Var M:inst; X: Pr; A,b,c,curr_m: As; I,j,v,iw:integer; s:string; BEGIN clrscr; For I:=1 to n do Begin curr_m:=[]; Write('Vvedite nomera komiuterov ',I:2, '-go instituta: '); readln(s); for j:=1 to length(s) do //че это begin Case s[j] of //че это '1':x:=intel; '2':x:=ath; '3':x:=dur ; '4':x:=as_; else write('nomera 1..4'); end; if x in [intel..as_] then curr_m := curr_m + [x]; end; m[i]:=curr_m end; writeln; A := m[1]; B := []; For I:=1 to 3 do Begin A:=A * m[i]; B:=B + m[i]; C:=[ intel.. as_]-B; End; For I:=1 to 3 do Begin Case i of //че это 1: Write('kompi vo vseh: '); 2: Write('assortiment kompov: '); 3: Write('kompi,kotorih net: '); end; For x:=intel to as_ do //че это If x in a then Case x of intel: Write('Intel\Celeron '); ath: Write('AMD\Athlon '); dur: Write('AMD\Duron '); as_: Write('AS-400 '); end; if I=1 then a:=b else a:=c; writeln; end; readln; END.
Помогите найти ошибку в проге, все работает, но работает криво, пишет всегда что минимальный равен 0!!! PHP: program zamena; uses CRT; var n, i, max, min: integer; a : array [1..100] of integer; begin write('Введите количество элементов массива:'); readln(n); for i:=1 to n do begin a[i]:=random(20); write(a[i]:5); end; writeln; a[1]:=min; for i:=1 to n do begin if a[i] <= min then //нахождение минимального min:=a[i]; write(min:5); end; writeln; write('Минимальный элемент массива:',min:2); end.
Создаю в delphi свой компонент, кнопку закрытия формы. Получил такой код PHP: unit QuitButton; interface uses SysUtils, Classes, Controls, StdCtrls; type TQuitButton = class(TButton) private protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; public published end; procedure Register; implementation procedure TQuitButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited; close; end; procedure Register; begin RegisterComponents('Standard', [TQuitButton]); end; end. При компиляции выдает такую ошибку Code: [Error] QuitButton.pas(29): '(' expected but ';' found и подсвечивает строку со словом "close;" Как можно исправить ошибку?
там неудобно( и когда я редактирую удаляю фразы потом не коректно показывает текст, место удаленных фраз нужно точки прописывать?
мне нужно авторизоватся вк, что нагуглил не помогает. мне бы лучше не исходник или готовую процедуру, мнебы обьяснить что,куда,а главное для чего.
Само собой будет ошибка, close это метод из TForm, но не как не из TQuitButton, где его не существует...
