>>80 分かっていると思うけど、 ・Indy は Server Edition 以上につく だそうです。Kilixの話ね。 Kilix-MLからの情報です。
84 名前: デフォルトの名無しさん 投稿日: 2001/02/13(火) 23:24
Server Editionだとホビープログラマはつらいですね。>>83 にしても話が進まないので分析/設計とプロトタイプ開発を 同時に進めるようなやり方で行きましょうか?
85 名前: デフォルトの名無しさん 投稿日: 2001/02/13(火) 23:29
>>77 procedure TForm1.Button1Click(Sender: TObject); var s: string; HtmlView: DispHTMLDocument; begin s := '<html><body><font color=red size="+3">て</font>すと</body></html>'; HtmlView := WebBrowser_V11.Document as DispHTMLDocument; if HtmlView <> nil then HtmlView.body.innerHTML := s end;
じゃダメ? ただし、いちどNavigateかGoHomeなどしておく必要アリ。理由不明。
86 名前: デフォルトの名無しさん 投稿日: 2001/02/13(火) 23:29
プロトタイプってのは 技術的なプロトタイプね。 たとえばスレ一覧を取るだけのものとか。
87 名前: ヒロユキ@ギコナビ 投稿日: 2001/02/14(水) 00:23
>>85 var v: OleVariant; begin v := 0; WebBrowser1.Navigate('about:blank', v); end; これを最初にやるのはダメかな?
あれから少し調べると、 SAFEARRAYとか、SafeArrayCreateVector()とか、更に未知の物が。 が、close: Closes an output stream and forces the sent data to display. なんて文も見かけたので、併せてもっと調べてみます。
110 名前: turbo type D@monazilla 投稿日: 2001/02/14(水) 16:53
if (Trim(readdat[i]) <> '') then begin no := IntToStr(i + 1); DivideStrLine(readdat[i], title, mailto, name, datetime, body); mailto := StringReplace(MailTo, ',', ',', [rfReplaceAll]); name := StringReplace(Name, ',', ',', [rfReplaceAll]); body := StringReplace(Body, ',', ',', [rfReplaceAll]); body := StringReplace(Body, '♥', '?', [rfReplaceAll]); body := StringReplace(Body, '', '', [rfReplaceAll]); //Body := ConvHtmlLink(Body);
{<>"&} if mailto = '' then begin html = html + '<dt>' + No + ' 名前:<font color="forestgreen"><b> ' + Name + ' </b></font> 投稿日: ' + DateTime+ '<br><dd>' + body + '<br><br><br>'; end else begin html = html + '<dt>' + No + ' 名前:<a href="mailto:' + MailTo + '"><b> ' + Name + ' </B></a> 投稿日: ' + DateTime+ '<br><dd>' + body + '<br><br><br>'); end;
end; end;
Result = html + '</body></html>'; finally readdat.Free; end; end;
procedure TNichBrowser.CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of // GoForwardコマンドの実行許可 CSC_NAVIGATEFORWARD : begin FGoForwardEnabled := Enable; end; //GoBackコマンドの実行許可 CSC_NAVIGATEBACK : begin FGoBackEnabled := Enable; end else
end;
if Assigned(FOnCommandStateChange) then FOnCommandStateChange(Sender, Command, Enable); end; これでGoBackEnabled/GoForwardEnabledプロパティが 実装できる。
procedure TFormEx.IncludeForm(ParentControl, ChildControl: TWinControl); begin ChildControl.Parent := ParentControl; ChildControl.Align := alClient; ChildControl.Visible := True; if ChildControl is TForm then with TForm(ChildControl) do if Assigned(OnActivate) then OnActivate(ChildControl); end;
monazilla.org (w に置いてある、「TWebBrowserでスクロールさせる方法 」を C++ Builderで使いたいんだけど、Delphiを知らない私には、どーにも移植出来 ない。 一週間程、Web検索してアレコレいぢってはみたんだけどねぇ。 申し訳ないだけど、↓これをC++ Builder用に訳して恵んで貰えませんか?
procedure TForm1.Button1Click(Sender: TObject); var Doc: IHTMLDocument2; y: Integer; begin Doc := WebBrowser1.Document as IHTMLDocument2; y:=olevariant(Doc).body.scrollTop; ShowMessage('現在のスクロール位置は'+ IntToStr(y)+'だぞ(゚Д゚)ゴルァ'+#13#10+ '勝手にスクロルさせるから覚悟しておけ'); y := y + 100; Doc.parentWindow.scroll(0, y); end;