stream ended перевод

Ответ от Василий[гуру]
Вы не создали экземпляр объкекта TMemoryStreamИ Читаете с указетеля = 0. Это что вообще такое? )Сейчас пример состряпаю.. .У меня не установен интерБейз, поэтому с базой ничего сделать не могу но скажем будет примерно так:var Stream: TMemoryStream;begin Stream := TMemoryStream.Create; // !!!создать экземпляр Stream.LoadFromStream(Form1.IBQuery1.CreateBlobStream(Form1.IBQuery1.FieldByName('TRAILER'), bmRead)); Про LoadFromStream не скажу точно, но вот Stream.Read(Code, SizeOf(Code)); точно не тудат. к. Read первым параметром принимает указатель на данные, вторым размер.он вам попросту не нужен. итак, выйден нечно типаvar Stream: TMemoryStream;begin Stream := TMemoryStream.Create; // !!!создать экземпляр Stream.LoadFromStream(Form1.IBQuery1.CreateBlobStream(Form1.IBQuery1.FieldByName('TRAILER'), bmRead)); Stream.Seek(0,0);Stream.SaveToFile('F:\\test.avi');Stream.Free;end;