| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
StringStream: TStringStream;
PostVars: TStringList;
FileStream: TFileStream;
begin
PostVars := TStringList.Create;
StringStream := TStringStream.Create('');
FileStream := TFileStream.Create('C:\tatu.jpg', fmOpenRead or fmShareDenyWrite);
try
IdHTTP1.Connect;
StringStream.CopyFrom(FileStream, FileStream.Size);
PostVars.Values['file'] := IdEncoderMIME1.Encode(StringStream.DataString);
IdHTTP1.Post('http://www.domain.de/upload/upload.php?pDatei=tatu.jpg', PostVars, StringStream);
finally
StringStream.Free;
PostVars.Free;
FileStream.Free;
end;
end;
|
upload.php:
| Код |
$datei = base64_decode($file);
$fp = fopen($HTTP_GET_VARS['pDatei'], "w");
fwrite($fp, $datei);
fclose($fp);
|
ничего не получается. в чем трабл ?
для кодирования в base64 я использую компонент из набора indy.
данные нормально поступают в mime на сайт. патом я их перекодирую обратно
base64_decode($file);
после перекодировки файл на ~1% по размеру становится меньше и не открывается 
в компоненте дельфовой есть такой параметр как fillchar
по умолчанию он равен "=" я ставлю #0
но все равно файл получается некоррректный
в чем же дело ?
может кто знает альтернативную функцию кодирования jpeg в base 64 ?
имо может я что то криво делаю ?
|