Доброго время суток
Помогите пожалуйста!
надо отправить запрос через TIdHttp на
Код:
<FORM id="entryform" name="entryform" method="post" onSubmit="return checkform(this)">
<input name="title" type="text" value="" size="60" required>
<select name="cat" required>
<option value="" selected></option>
<option value="1" >Софт</option>
<option value="2" >Музыка</option>
<option value="3" >Видео</option>
<option value="4" >Игры</option>
<option value="5" >Юмор</option>
<option value="6" >Мобильный</option>
<option value="7" >Другие новости</option>
<option value="8" >Креатив</option>
<option value="9" >Книги и видеоуроки</option>
<option value="10" >Сериалы</option>
</select>
<textarea name="text" rows="25" id="text" style="width: 100%; " required></textarea>
<input name="link" type="text" size="50" value="">
<input checked type="checkbox" value="1" name="com" >
<input type="submit" value="отправить" name="add" >
<input type="button" value="предосмотр" onClick="preview();">
</form>
код сильно упрощено так как оригинал много занимает места если надо оригинал то он
здесь
отправляю так
Код:
procedure TForm1.startBtnClick(Sender: TObject);
var
S: string;
M: TStringStream;
Data: TStringList;
begin
M := TStringStream.Create('');
Data := TStringList.Create;
Data.Add('uname=****');
Data.Add('pass=****');
LoginHTTP.Post('******/login.php', Data,m);
data.Clear;
m.Clear;
data.Add('title=Title123');
data.Add('cat=2');
data.Add('text=asdfghyrwew');
data.add('link=ffdsss.ru');
data.add('com=1');
data.add('add=отправить');
LoginHTTP.Post({!!!!!куда!!!!!!}, Data,m);
M.Free;
Data.Free;
end;
я не могу понять куда мне отправлять последний запрос.
пробовал на return checkform(this) но как я и думал ничего не случилось...
Роботаю в Delphi 2010. Indy родные.