ошибка i/o при работе с браузером на delphi

← →
im-13 (2005-07-11 17:33) [0]

написал стандартную программу на делфе, которая открывает браузер по заданному url, после чего весь html-код копируется в файл(test.html) для посдедующего редактирования, но после того как файл создается(test.html) он не может открытся assignfile, т.е. любая попытка прочитать строку заканчивается ошибкой i/o error 104, в чем может быть проблема помогите!!!???

код:
var f,test,f2:textfile;
s,s1,s2,s3,s4:string;
i,j,size:integer;
p1,p2,fl1,fl2:integer;
begin
j:=0;
assignfile(f,"D:\2.txt");
reset(f);
while not eof(f) do
begin
readln(f,s);
s1:=s;
chdir("D:\");
for i:=0 to length(s) do
begin
if s[i]=" " then s[i]:="+";
end;

repeat
WebBrowser1.Navigate("url");
while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages;
memo1.Lines.add("Done");
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
str(j,s2);
PersistFile.Save(StringToOleStr("D:"test.html"), True);
while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;

assignfile(f2,"D:\"test.html");
size:=FileSize(f2);
closefile(f2);
inc(j);
until size<>3559;

{
reset(test);

assignfile(f2,"D:\"1.txt");
rewrite(f2);
while not eof(test) do

← →
begin...end © (2005-07-11 17:36) [1]

Переформулируйте вопрос.

← →
im-13 (2005-07-11 17:38) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX, MSHTML_TLB;

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
HTMLDocument: IHTMLDocument2;
Document: ihtmlDocument2;
PersistFile: IPersistFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var f,test,f2:textfile;
s,s1,s2,s3,s4:string;
i,j,size:integer;
p1,p2,fl1,fl2:integer;
begin
j:=0;
assignfile(f,"D:\2.txt");
reset(f);
while not eof(f) do
begin
readln(f,s);
s1:=s;
chdir("D:\");
for i:=0 to length(s) do
begin
if s[i]=" " then s[i]:="+";
end;

repeat
WebBrowser1.Navigate("url");
while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages;
memo1.Lines.add("Done");
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
str(j,s2);
PersistFile.Save(StringToOleStr("D:"test.html"), True);
while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;

assignfile(f2,"D:\"test.html");
size:=FileSize(f2);
closefile(f2);
inc(j);
until size<>3559;

{
reset(test);

assignfile(f2,"D:\"1.txt");
rewrite(f2);
while not eof(test) do
fl1:=1;
while fl1=1 do
begin
readln(test,s2);
if copy(s2,length(s2)-7,7)="</html>" then fl1:=0;
p1:=1;
p2:=1;
while p1<>0 do
begin
p1:=pos(s2,"<li> ");
delete(s2,p1,22);
p2:=pos(s2," </li>");
delete(s2,p2,14);
s3:=copy(s2,p1,p2-p1);
writeln(f2,s3);
end;
closefile(f2);
closefile(test);
end; }
end;
end;

end.

← →
Плохиш © (2005-07-11 17:41) [3]

> im-13 (11.07.05 17:33)

Файлы закрывать нужно

← →
im-13 (2005-07-11 17:42) [4]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX, MSHTML_TLB;

type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
HTMLDocument: IHTMLDocument2;
Document: ihtmlDocument2;
PersistFile: IPersistFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var f,test,f2:textfile;
s,s1,s2,s3,s4:string;
i,j,size:integer;
p1,p2,fl1,fl2:integer;
begin
j:=0;
assignfile(f,"D:\2.txt");
reset(f);
while not eof(f) do
begin
readln(f,s);
s1:=s;
chdir("D:\");
for i:=0 to length(s) do
begin
if s[i]=" " then s[i]:="+";
end;

repeat
WebBrowser1.Navigate("url");
while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages;
memo1.Lines.add("Done");
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
str(j,s2);
PersistFile.Save(StringToOleStr("D:"test.html"), True);
while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;

assignfile(f2,"D:\"test.html");
size:=FileSize(f2);
closefile(f2);
inc(j);
until size<>3559;

reset(test);

assignfile(f2,"D:\"1.txt");
rewrite(f2);
while not eof(test) do
fl1:=1;
while fl1=1 do
begin
readln(test,s2);
if copy(s2,length(s2)-7,7)="</html>" then fl1:=0;
p1:=1;
p2:=1;
while p1<>0 do
begin
p1:=pos(s2,"<li> ");
delete(s2,p1,22);
p2:=pos(s2," </li>");
delete(s2,p2,14);
s3:=copy(s2,p1,p2-p1);
writeln(f2,s3);
end;
closefile(f2);
closefile(test);
end;
end;
end;

end.

← →
im-13 (2005-07-11 18:08) [5]

если я не ошибаюсь программа перестает работать после этого кода:

PersistFile.Save(StringToOleStr("D:"test.html"), True);
while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;

assignfile(f2,"D:\"test.html");

size:=FileSize(f2); - на этой строке происходит ошибка - вообщето она просисходит всегда при попытке прочитать файл, в любом предстовлении,
если я правильно понял то мне нужно закрыть файл после

PersistFile.Save(StringToOleStr("D:"test.html"), True);
while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;

но как если я его не открывал до этого, а хочу открыть только после

← →
begin...end © (2005-07-11 18:10) [6]

> im-13 (11.07.05 18:08) [5]
> size:=FileSize(f2); - на этой строке происходит ошибка

Во-первых, файл f2 не открыт.
Во-вторых, FileSize не применим для текстовых файлов.

← →
Плохиш © (2005-07-11 18:16) [7]

> im-13 (11.07.05 18:08) [5]

FileSize + F1 читать до полного просветления

← →
im-13 (2005-07-11 18:21) [8]

ладно с filesize - это так попытка из ничего
я тут немного напутал с новой и старой версие программы

repeat
WebBrowser1.Navigate("url");
while WebBrowser1.ReadyState < READYSTATE_COMPLETE do
Application.ProcessMessages;
memo1.Lines.add("Done");
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr("D:\"test.html"), True);
while HTMLDocument.readyState <> "complete" do
Application.ProcessMessages;

---вот я его открываю----

assignfile(test,"D:\"test.html");
reset(test);
assignfile(f2,"D:\"1.txt");
rewrite(f2);

while not eof(test) do -- на этой строке(и на других подобных версия кода, например просто прочитать одну строку из test) происходит ошибка

fl1:=1;
while fl1=1 do
begin
readln(test,s2);
if copy(s2,length(s2)-7,7)="</html>" then fl1:=0;
p1:=1;
p2:=1;
while p1<>0 do
begin
p1:=pos(s2,"<li> ");
delete(s2,p1,22);
p2:=pos(s2," </li>");
delete(s2,p2,14);
s3:=copy(s2,p1,p2-p1);
writeln(f2,s3);
end;
closefile(f2);
closefile(test);

← →
im-13 (2005-07-11 18:24) [9]

и еще
при этом файл f2 открывается нормально

> im-13 (11.07.05 18:21) [8]

> fl1:=1;
> while fl1=1 do
> begin
> readln(test,s2);
> ...

Бесконечный цикл, выход за границы файла test.

← →
im-13 (2005-07-11 18:31) [11]

дело в том что хоть что там будет программа не доходит до этого кода она останавливается на первой попытке доступа к файлу test

ошибка i/o при работе с браузером на delphi Найти похожие ветки