[babay89]

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

ошибка в функции! 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;
...

Спасибо огромное До этого писали про multi.free но вставляя, но было толку_ оказывается не там вставлял. Ещё раз спс