[scroyler]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

function FindID(strB,strE,str:string):string; var   b,e:integer; begin   b:=pos(strb,str)+Length(strb);   e:=pos(strE,str);   if (b=0)or(e=0) then     Result:=''   else     Result:=copy(str,b,e-b); end;     procedure TForm1.Button1Click(Sender: TObject); var   Data:TStringList;   Request:String;   id1,id2:string; begin   Data:=TStringList.Create;   Request:=idHTTP1.Get('http://sprashivai.ru/questions');   id1:=FindID('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="ask(''questions'', ''',''');">'+AnsiToUtf8('Спросить')+'</button>',Request);   id2:=FindID('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="','" id="asking_hash" />',Request);    Data.Add(id1+'='+id2);    data.Add('username'+'='+'konstantin_delphi');    data.Add('question'+'='+'texxt');    data.Add('anonimous'+'='+'undefined') ;    data.Add('capctha'+'='+'')  ;    idhttp1.Post('http://sprashivai.ru/questions/ask',Data); end; end.

Что не так? Кто подскажет?

[scroyler]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.Button1Click(Sender: TObject); var   Data:TStringList;   Request:String;   id1,id2,str:string;   n:integer; begin   Data:=TStringList.Create;   str:=idhttp1.Get('http://postingroom.ru/forum/42-0-0-1-1'); n:=pos('"ssid" value="',str)+length('"ssid" value="'); id1:= copy(str,n,posex('" />',str,n)-n);   n:=pos('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="Responses.ask('+'konstantin_delphi'+',',str)+length('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="Responses.ask('+'konstantin_delphi'+','); id1:= copy(str,n,posex(''+''');">Спросить</button>',str,n)-n);   n:=pos('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="',str)+length('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="'); id2:= copy(str,n,posex('" id="asking_hash" />',str,n)-n);      data.Add('username=konstantin_delphi');    data.Add('question=texxt');    Data.Add(id1+'='+id2);    data.Add('anonimous'+'='+'undefined') ;    data.Add('capctha'+'='+'')  ;    idhttp1.Post('http://sprashivai.ru/questions/ask',Data); end; end.

делаю так,все равно не работает
Подскажите пож.,мне срочно надо!