Цитата:
Сообщение от NumLock
ошибка в функции! multi не уничтожается, а ведь:
Код:
1 2 3 4 5 6 7 8 | procedure TIdMultiPartFormDataStream . AddFile( const AFieldName, AFileName,
AContentType: string );
var
FileStream: TFileStream;
FItem: TIdFormDataField;
begin
FItem := FFields . Add;
FileStream := TFileStream . Create(AFileName, fmOpenRead or <font color="Red">fmShareDenyWrite</font>);
|
Код:
1 2 3 4 5 6 7 8 9 | ...
http:=TIdHTTP . Create( nil );
try
finally
http . Free;
multi . Free;
end ;
...
|
|
Спасибо огромное

До этого писали про multi.free но вставляя, но было толку

_ оказывается не там вставлял. Ещё раз спс
