Проблема копирования в TStream

← →
Victor_ (2003-01-27 20:27) [0]

пытаюсь я получить и обработать информацию из сети с помощью компонентов Indy:

procedure TForm1.FormCreate(Sender: TObject);
var
buffer,mbuffer:TStream;
myHTTP : TidHTTP;
begin
buffer:=TFileStream.Create("1.dat",fmCreate or fmOpenWrite);
mbuffer:=TMemoryStream.Create;
myHTTP := TidHTTP.Create(nil);
myHTTP.Get(str,mbuffer);
buffer.CopyFrom(mbuffer,mbuffer.Size);
mbuffer.Free;
buffer.Free;
end;

на buffer.CopyFrom получаю ошибку.
Что делать??

код
procedure TForm1.FormCreate(Sender: TObject);
var
buffer,mbuffer:TStream;
myHTTP : TidHTTP;
begin
mbuffer := TFileStream.Create("1.dat", fmOpenReadWrite);
buffer := TFileStream.Create("2.dat", fmOpenReadWrite);
buffer.CopyFrom(mbuffer,mbuffer.Size);
buffer.Free;
mbuffer.Free
end;
работает нормально :(

← →
dumb (2003-01-27 21:01) [1]

Нужно вставить

mbuffer.Position := 0;

после

myHTTP.Get(str,mbuffer);

а вообще лучше так

procedure TForm1.FormCreate(Sender: TObject); var buffer:TStream; myHTTP : TidHTTP; begin buffer:=TFileStream.Create("c:\1.dat",fmCreate or fmOpenWrite); myHTTP := TidHTTP.Create(nil); myHTTP.Get(" http://microsoft.com", buffer); buffer.Free; myHTTP.Free; end;

← →
Victor_ (2003-01-27 21:51) [2]

Спасибо за mbuffer.Position := 0; , а насчет
procedure TForm1.FormCreate(Sender: TObject); var buffer:TStream; myHTTP : TidHTTP; begin buffer:=TFileStream.Create("c:\1.dat",fmCreate or fmOpenWrite); myHTTP := TidHTTP.Create(nil); myHTTP.Get(" http://microsoft.com", buffer); buffer.Free; myHTTP.Free; end;
то нужно именно 2 буфера (один для обработки)

Проблема копирования в TStream Найти похожие ветки