POST длинной строки (работа с api)

[wowsel]

Приветствую. Суть вопроса такова:
Имеется API http://poniez.net/api-docs
Имеется программа, которая переводит картинку в байтовую последовательность а её в base64, но при попытке отправить POST на api типа poniez.net/api?upload=текст говорит что запрос очень большой. Подскажите что можно сделать в данном случае? Вот код программы.

var
  f: file;
  buf:string;
  //buf:TStringList;
  myBuf: pointer;
  fs: integer;
HTTP: THTTPSend;
begin
//buf:=TStringList.Create;
//http:=THTTPSend.Create;
  assignfile(f, edit1.Text);
  reset(f, 1);
  fs := fileSize(f);
  GetMem(myBuf, fs);
  blockRead(f, myBuf^, fs);
  //
  Memo1.Lines.Add( bin2base64(myBuf, fs) ); // send base64 encoded data via HTTP POST
 //  http.httpmethod('POST','http://poniez.net/api?upload='+bin2base64(myBuf, fs)+'&format=xml');
 //  memo2.Lines.LoadFromStream(http.Document);
  //
  ShowMessage('1');
  buf:=(AnsitoUtf8(bin2base64(mybuf, fs)));
 memo2.Lines.Add(IdHTTP1.Post('http://poniez.net/api?upload=',buf));
 ShowMessage('2');
  FreeMem(myBuf);
  closeFile(f);
end;

function bin2base64(myBinaryData: pointer; myBinaryDataSize: integer): string;
var
  data: AnsiString;
begin
  if ((nil <> myBinaryData) and (0 < myBinaryDataSize)) then begin
    //
    SetLength(data, myBinaryDataSize);
    move(myBinaryData^, data[1], myBinaryDataSize);
    //
    result := encodebase64(data);
  //  ShowMessage(Result);
    end
  else
    result := '';
end;

[veniside]

> api?upload='+bin2base64(myBuf, fs)

т.е. весь файл вы засовываете в URL? Это, мякго скажем, неверный подход. Данные должны передаваться в теле запроса POST, а не в адресе.

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file;
  buf: string;
  postdata: TStringList;
  myBuf: pointer;
  fs: integer;
begin
  assignfile(f, '1.png');
  reset(f, 1);
  fs := fileSize(f);
  GetMem(myBuf, fs);
  blockRead(f, myBuf^, fs);
  buf := bin2base64(mybuf, fs);
  postdata := TStringList.Create;
  postdata.Add('upload=' + buf);
  memo1.text := IdHTTP1.Post('http://poniez.net/api', postdata);
  memo1.lines.savetofile('2.html');
  FreeMem(myBuf);
  postdata.Free;
  closeFile(f);
end;

Вот так картинка передается, но лично у меня возникает варнинг:

Warning: imagecreatefrompng() [function.imagecreatefrompng]: gd-png: fatal libpng error: Q[10]U[1E]: invalid chunk type in /var/www/ferdinand/data/www/poniez.net/includes/classes/dmx.class.upload.php on line 322

Warning: imagecreatefrompng() [function.imagecreatefrompng]: gd-png error: setjmp returns error condition in /var/www/ferdinand/data/www/poniez.net/includes/classes/dmx.class.upload.php on line 322

Warning: imagecreatefrompng() [function.imagecreatefrompng]: '/var/www/ferdinand/data/www/poniez.net/images/temp_ZSRdG9HUbh7pc1xM32zK68CDvitueT gqkXmwfFYosAaVLlP0rWOE5NnB4yIjQ.png ' is not a valid PNG file in /var/www/ferdinand/data/www/poniez.net/includes/classes/dmx.class.upload.php on line 322
{"status_code":403,"status_txt":"in valid source"}