|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Не задает вопрос на спрашивай
Код:
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. Что не так? Кто подскажет? Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#2
|
|||
|
|||
Код:
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. делаю так,все равно не работает Подскажите пож.,мне срочно надо! Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |