Текущий архив: 2003.02.20;
Скачать: CL | DM;

Вниз

Чтение из TMemoryStream.....   Найти похожие ветки 

← →
SeNtiMeL ©   (2003-02-11 21:08) [0]

Я никак не разберусь с чтением из TMemoryStream.

Для примера я написал вот такой, код, но он не работает...
Просьба укажите ошибку внем !!!


procedure TForm1.Button1Click(Sender: TObject);
var
nfl,fl : TMemoryStream;
Buf : Pchar;
copy : Boolean;
lsize : integer;
begin
fl := TMemoryStream.Create;
fl.LoadFromFile("f:\test.mp3");
fl.Position:=0;
nfl := TMemoryStream.Create;
nfl.Position:=0;
copy:=True;

While Copy = true do
begin

lsize:=Min(fl.Size-nfl.Position,512);
GetMem(Buf,Lsize);
if lsize <> 0 then
begin
fl.Read(Buf,lsize);
//Application.ProcessMessages;
nfl.Write(Buf,Lsize);
end
else Copy := False;
FreeMem(Buf,Lsize);
end;

fl.Free;
nfl.SaveToFile("f:\test2.mp3");
nfl.Free;
buf:="";

end;





---

← →
SeNtiMeL ©   (2003-02-11 21:20) [1]

Просьба не беспокоится я уже сам разобрался :)
Ошибка заключалась в том, что при Read и Write я должен был ссылатся на источник Buf...
нужно было делать так:


fl.Read(Buf^,lsize);
//Application.ProcessMessages;
nfl.Write(Buf^,Lsize);





---

Страницы: 1 вся ветка

Текущий архив: 2003.02.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.02 c