モナーの *やさしい* Delphi質問スレ Ver.8
■ このスレッドは過去ログ倉庫に格納されています
0845デフォルトの名無しさん
NGNGこんな感じは？
SL.Text := Memo1.Lines.Text; //SL: TStringList;
for i := 0 to SL.Count -1 do
begin
if Pos('</head>',LowerCase(SL.Strings[i])) > 0 then
begin
j := i;
Break;
end;
end;
SL.Insert(j,'<base href=' +Str +'>'); //Str: string;
SL.SaveToStream(MS); //MS: TMemoryStream;
MS.Seek(0,0);
(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(MS));
■ このスレッドは過去ログ倉庫に格納されています