[dEEmS]

Вобщем такая проблема:
Не очищается память методом Free. Выплевывает ошибку. Код примерно такой:

Код:

MyJpeg.Assign(bmp1);
myjpeg.CompressionQuality:=90;
myjpeg.Compress; 

pict:=Tmemorystream.Create;
pict.Position:=0;
myjpeg.SaveToStream(pict) ;
pict.Position:=0; 

ClientSocket1.Socket.SendText('Size:'+inttostr(pict.Size)+#0);
//если поставить pict.free сюда, то выполнится нормально.
ClientSocket1.Socket.SendStream(pict); //тут отправляется все ок.
pict.free; //а вот тут уже не срабатывает

Причем замечено, что до SendStream поток имеет нормальный размер (числом). А после выполнения SendStream, pict.size уже равен "Access violation at 0009272D1F accessing 00180094".

Код:

if ClientSocket1.Socket.SendStream(pict) then
pict.Free

не помогает

Это все дело в цикле, так что если не делать Free, то программа съедает всю оперативу до конца.

Так вот что же происходит с потоком после выполнения метода Socket.SendStream?? Заранее спс

[Aristarh Dark]

А справку читать Пушкин будет? Ну как дети, чесное слово.

Writes all the information that can be read from the AStream parameter to the socket connection.

Delphi syntax:

Код:

function SendStream(AStream: TStream): Boolean;

C++ syntax:

Код:

bool __fastcall SendStream(Classes::TStream* AStream);

Description

Use SendStream to write to the socket connection. The writing may occur in the OnSocketEvent event handler of a Windows socket object or in the OnWrite or OnClientWrite event handler of a socket component. Alternately, SendStream may write from a socket that is expected to write to the connection without a notification to signal the connection’s readiness to read. SendStream reads information from the stream indicated by AStream and writes it to the socket connection. The value returned by SendStream indicates whether any information was successfully written to the connection.

Note: The Stream passed as a parameter to SendStream becomes ”owned” by the windows socket object. The Windows socket object frees the stream when it is finished with it. Do not attempt to free the stream after it has been passed as a parameter.

ЗЫЖ Подчеркнул я, чтобы акцентировать внимание.

[dEEmS]

Сообщение от Aristarh Dark

The Windows socket object frees the stream when it is finished with it

Дак вот когда винда его освободит то?? Файл уже передан, пришло подтверждение о приеме, и мне бы надо передавать следующий файл этим потоком. Но как мне его создать по новой, если он не был уничтожен? Я его даже очистить то не могу.

[dEEmS]

Проблема решена. Всем спасибо