ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от ChuKeY

отправляет текстовый файл на сервак)) как бинарный кидать через вининет не разобрался... а php не обращай внимания, главное работает, принимает и ладно))...

Бинарные файлы надо перегонять через эту хуёвину:

Код:

procedure GetBuff(var Text: string; FileName: string);
var
  F: File of Byte;
  B: Byte;
begin
  AssignFile(F, FileName);
  Reset(F);
  while not Eof(F) do
  begin
    Read(F, B);
    Text := Text + chr(B);
  end;
  Close(F);
end;

А дальше в функции POST добавляешь:
в var: texet:string;
а в код:
GetBuff(texet, 'C:\lol.jpg');

ну и вместо memo1.text вставляешь texet