Загрузка на Rghost

[kostya67]

Как загрузить файл на Rghost , в запросах ничего не понял. Как вообще заливать файлы на файлообменики?

[Cruzel]

Почему не пользуйтесь гуглом? Вашу задачу уже обсуждали тут - https://forum.antichat.ru/threadnav299215-2-10.html

[Человек_Борща]

в запросах ничего не понял. Как вообще заливать файлы на файлообменики?

1. разобраться в запросах идущих от браузера.
2. Искать на сайте обменнника документацию по API, не у многих он есть. Если такого нет, смотреть пункт 1.
3. Ползать по инету и читать не работающий код урожая прошлого года, продолжать тупить "почему он не работает".

[Lardes]

Действительно, чего ленитесь искать?
1) http://rghost.ru/uploader/windows
2) https://github.com/RealisticGroup/RghostUploaderQT

[kostya67]

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:string;
  FormData: TIdMultiPartFormDataStream;
begin
 IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
FormData := TIdMultiPartFormDataStream.Create;
    try
      a:=Idhttp1.Get('http://rghost.ru/');
   except
   end;

      b:=pars('<form accept-charset="UTF-8" action="http://',a,'"');
    c:=pars('<input name="authenticity_token" type="hidden" value="',a,'"');
   FormData.AddFormField('utf8', '&#x2713;');
      FormData.AddFormField('authenticity_token', c);
      FormData.AddFile('file', 'C:\Users\Desktop\Rghost.zip', 'application/x-rar-compressed');
      FormData.AddFormField('commit', 'Отправить');
    try
      IdHTTP1.Post('http://'+b, FormData);
    except
     Edit1.Text:=IdHTTP1.Response.Location;
     FormData.Free;
    end;
end;

function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
 if (T_='') or (ForS='') or (_T='') then Exit;
 a:=Pos(T_, ForS);
 if a=0 then Exit else a:=a+Length(T_);
 ForS:=Copy(ForS, a, Length(ForS)-a+1);
 b:=Pos(_T, ForS);
 if b>0 then
 Result:=Copy(ForS, 1, b - 1);
end;

Вылетает ошибка 1.1 500 , вроде правильно все делаю