Изображение в base64

[wowsel]

Здравствуйте, комрады! У меня ужасная проблема, в которой мне не смог помочь даже сам Google (но наверное дело во мне). Суть такова:
Отправляю файл (jpeg,jpg,bmp,png,gif) по сети, обязательные условия отправки - метод POST и изображение в base64. Как перевести изображение в base64, как перевести стройку я нашел, но тогда как перевести изображение в строку? В байтовую последовательность? В программировании не силён, подскажите пожалуйста.

[veniside]

> В байтовую последовательность?

угу

// --  --
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 := base64(data);
  end
  else
    result := '';
end;

[wowsel]

Увы, ответ мне не помог. Вопрос стоит именно как перевести файл "C://img.jpeg" в байтовую последовательность, а потом уже в base закодировать. Или может я чего не понял.

[veniside]

> ответ мне не помог

чтобы понять ответ, нужно для начала понять вопрос )

var
  f: file;
  myBuf: pointer;
  fs: integer;
begin
  assign(f, 'C:\img.jpeg');
  reset(f, 1);
  fs := fileSize(f);
  GetMem(myBuf, fs);
  blockRead(f, myBuf^, fs);
  //
  postThis( bin2base64(myBuf, fs) ); // send base64 encoded data via HTTP POST
  //
  FreeMem(myBuf);
  closeFile(f);
end.

> Или может я чего не понял

или не захотел понять )

[p51x]

Вопрос стоит именно как перевести файл "C://img.jpeg" в байтовую последовательность

Прочитать его. Главы книг - работа с файлами.

Вы не поверите, но файл и есть байтовая последовательность.