hab ma n bissel in der JvHtmlParser mit Erfolg darin rum gebastelt ^^.
Kopiert und dem Projekt hinzu gefügt.
Code:
private
FFileName: TFileName;
FFileNameFS: TFileStream; //hinzu
Code:
published
property FileName: TFileName read FFileName write SetFileName;
property FileNameFS: TFileStream read FFileNameFs write FFileNameFs; //hizu
write FFileNameFs <<< ist hundert pro falsch ^^ ich brauch die nur zum lesen.
Code:
procedure TJvHTMLParser.SetFileName(Value: TFileName);
begin
if FFileName <> Value then
begin
FFileName := Value;
if not (csDesigning in ComponentState) then
AnalyseFile;
end;
if FFilenameFS <> nil then //<<< hinzu
begin
end;
end;
Code:
// (rom) reimplemented with a TStringList
procedure TJvHTMLParser.AnalyseFile;
var
List: TStringList;
begin
List := TStringList.Create;
try
if FileExists(FileName) then
begin
List.LoadFromFile(FileName);
AnalyseString(List.Text);
end;
if assigned( FileNameFS ) then //besser noch ändern <<<
begin
list.LoadFromStream( FileNameFS );
AnalyseString(List.Text);
end;
finally
List.Free;
end;
end;
Das hab ich mal zum testen so getippselt.
Es Funktioniert. bis jetzt ohne Fehler. bei Einwand bitte melden
