Форум: "Сети";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
ВнизПроблема копирования в 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 буфера (один для обработки)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c