Текущий архив: 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.47 MB
Время: 0.015 c
