Залить файл на sendspace

[RIO]

Здравствуйте! Имеется файлообменник sendspace.com, как можно залить туда файл с помощью компонента idHTTP? Снифером получаю пост данные, но там получается один пост запрос и то какой-то не понятный... Может что-то по другому следует сделать? Но я бы был рад, если бы вы даже посоветовали мне например другой файлообменник, где можно легко сделать поставленную задачу… Потому что я проверял на многих файлообменниках и везде эта же ерунда, то есть только пост запрос POST_DATA…

[kangreon]

Вроде заливает.

function IntupV(s, name : string ): string;
begin
  Result := Copy(s,PosEx('value="',s,Pos(name,s))+7,PosEx('"',s,PosEx('value="',s,Pos(name,s))+7)-PosEx('value="',s,Pos(name,s))-7);
end;

function UpploadFile(FileName : string; IdHTTP : TIdHTTP): string;
var
  s, action : string;
  data:TIdMultiPartFormDataStream;
  i : Integer;
begin
  s := IdHTTP.Get('http://www.sendspace.com');
  s := Copy(s,Pos('<form',s),Pos('</form>',s)-Pos('<form',s));
  action := Copy(s,Pos('on="',s)+4,PosEx('"',s,Pos('on="',s)+5)-Pos('on="',s)-4);
  Data:=TIdMultiPartFormDataStream.Create;
  data.AddFormField('MAX_FILE_SIZE',IntupV(s,'MAX_FILE_SIZE'));
  data.AddFormField('UPLOAD_IDENTIFIER',IntupV(s,'UPLOAD_IDENTIFIER'));
  data.AddFormField('DESTINATION_DIR',IntupV(s,'DESTINATION_DIR'));
  data.AddFormField('js_enabled',IntupV(s,'js_enabled'));
  data.AddFormField('signature',IntupV(s,'signature'));
  data.AddFormField('recpemail',IntupV(s,'recpemail'));
  data.AddFormField('ownemail',IntupV(s,'ownemail'));
  data.AddFormField('terms',IntupV(s,'terms'));
  data.AddFile('file_0',FileName,'application/x-msdownload');
  s := IdHTTP.Post(action,data);
  data.Free;
  i := Pos('Download Link',s);
  Result := Copy(s,PosEx('value="',s,i)+7,PosEx('" size',s,i)-PosEx('value="',s,i)-7);
end;

// Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  Edit1.Text := UpploadFile(OpenDialog1.FileName,IdHTTP1)
end;

[RIO]

Огромное спасибо Судя по коду он работает и вправду. Но вот у меня выдает почему-то ошибку при нажимании на кнопку – No data to read. И еще один вопрос, каким снифером Вы получали данные?

[kangreon]

HTTP Analyzer

<form method="post" action="http://fs11u.sendspace.com/processupload.html" enctype="multipart/form-data" onSubmit="return uploadformsubmit()" name="upload2519" id="upload2519">
    <input type="hidden" name="MAX_FILE_SIZE" value="314572800">
    <input type="hidden" name="UPLOAD_IDENTIFIER" value="1266875519.1276978563.5D540182.25.0">
    <input type="hidden" name="DESTINATION_DIR" value="5">
	<input type="hidden" name="js_enabled" id="js_enabled" value="0">
	<input type="hidden" name="signature" value="1fc7e8fe7b5fa7eb1fc194678cb161d3">
    <input type="file" name="file_0" size="35" id="filebrowse"><br>
    <input type="text" name="desc0" style="width:236px;" id="filedescription"><br>
    <input type="text" id="recpemail" name="recpemail" style="width:236px;" value="" class="wickEnabled:recipientemailsfloater"><br>
	<input type="text" id="ownemail" name="ownemail" value="" style="width:236px;"><br>
    <input type="hidden" name="terms" value="1" id="terms">
	<input type="submit" id="btnupload" value="Upload File">
</form>

[RIO]

Понял Все уже работает, спасибо