[babay89]

Сообщение от @Rafa3L

так ты разберись со своим функционалом, так прям поле чудес какое-то "угадай где баг". или весь свой сорс выложи.

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

[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;
...

[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 но вставляя, но было толку_ оказывается не там вставлял. Ещё раз спс