[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

PHP:

if Application.MainForm.Focused
  then  Button1.SetFocus;


 

На форме лежит компонент IndyHttpProxyServer и TMozillaBrowser.
Подскажите как отправить POST запрос на сервер через любой из этих компонентов скрытно от пользователя используя куки из TMozillaBrowser?

 

Подскажите интересную книжечку/статейку по потокам. Только так что бы от начала до конца, с критическими секциями и т.д. Ну вообщем потоки при парсинге (где переменные в обязательном порядке)

 

помогите авторизироваться на www.iherb.com, delphi

смущает это:

как слать данные серверу?

 

вот что отхватил снифер
http://gyazo.com/aa1c619f340b8aa12cc24e1fb7df15fd.png?1329753553

 

Multithreading - The Delphi Way Мартин Харви кажись...

 

там name надо передавать или id все таки?

 

пытаюсь работать с SSL. В папку закинул библиотеки, сделал все по инструкции. Но при посылке запроса, вылетает Socket error #0

 

какими компонентами/классами пользуетесь?

 

проблему решил. Возникла другая.
Сначала шлется пост запрос, в снифере ответ есть, но идет редирект. Попытался вывести ответ через ShowMessage, выводит пустое сообщение. Может кто подсказать код, чтобы определять, куда редиректится запрос?

 

https://forum.antichat.ru/thread320197.html
Никак?

 

это все ясно, но как вообще определить куда редиректит, чтобы потом выставить условие?

 

Code:

http.HandleRedirects := false;
try
http.Get('http://site.ru');
except
if http.ResponseCode=302 then
ShowMessage(http.Response.Location);
end;

 

я один заметил, что тс так и не ответил чем пользуется, а вы уже ему решения подкидываете?

 

не один, но наврятле ТС использует Free Pascal
Скорее всего Delphi, причём 7, хотя версия не сильно влияет на решение, за исключением XE и XE2.

 

Делфи/Паскаль(Начинающий)

Интересует алгоритм определение из чисел Y и Z самого ближайшего к числу X.
Помогите как можете.Спасибо.

 

Подскажите что не так

procedure TfmExemple.FormActivate(Sender: TObject);
begin
x:=random(1001);
edInput.SetFocus;
caption:='угадай целое число в диапазоне 0...1000';
lboutbuk.Caption:='введите число';

end;

procedure TfmExemple.BitBtn1Click(Sender: TObject);
var
y:integer;

begin
if edInput.Text = '' then
Exit;
y:=strtoint(trim(edinput.Text));
edinput.text:='';
edinput.SetFocus;

if tag = 0 then
if x<y then
mmoutput.Lines.Add('x<'+inttostr(y));
else if x>0 then
mmoutput.Lines.Add('x>'+inttostr(y));
else
begin
mmoutput.Lines.Add('x='+inttostr(y));
massageBeep(MB_ok);
lbOutbuk.Caption:='вы угадали! введите 1 если хотите повторить:';
tag:=1;

and
else
if y=1 then
begin
x:=random(1001);
lboutbuk.Caption:='введите число';
tag:=0;
edinput.SetFocus;
end else
close;

end;

end.

 

почемуто не работает

 

if abs(Y-X) < abs(Z-X) then write('Y ближе')
if abs(Y-X) > abs(Z-X) then write('Z ближе')

 

ты сперва вопрос задай нормально, что должен делать твой код, и что не выходит, код в теги [CODE]...[/CODE] заключи, потому как такую кашу разбирать не очень хочется