[NumLock]

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

Баг я опсиал в первом посту, и ошибка не в функции, а в сохранении файла.
P.s. UP

ошибка в функции! multi не уничтожается, а ведь:

Код:

procedure TIdMultiPartFormDataStream.AddFile(const AFieldName, AFileName,
  AContentType: string);
var
  FileStream: TFileStream;
  FItem: TIdFormDataField;
begin
  FItem := FFields.Add;
  FileStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);

Код:

...
http:=TIdHTTP.Create(nil);
try
  tmpstr:=http.Post('http://antigate.com/in.php',multi);
finally
  http.Free;
  multi.Free;
end;
...