Заполнения Webbrowser

[GAGARIN-NEW]

Вот исходник ...
накидал по быстрому ...
Скажите почему не работает кнопка "добавление к существующему тексту в браузере нового" в проекте ... я вроде всё правильно сделал ...

Жду помощи...

[NoName_emaNoN]

Я код не смотрел, только exe'шник, сразу скажу:
Делай так:
Чтоб добавить текст, нужно получить текст из браузера в какую нибудь переменную, потом устанавливать текст в браузер как
Переменная+Memo1.Text и всё.

А текст ты добавить не можешь потому что ты не сохраняешь текст из Memo в файл и не открываешь его Браузером, а динамически впихиваешь в браузер, может из-за этого

[BOBAH13]

Что за трудности. Не стоит мудрить через переменные, я тоже раньше так делал. Но к сути: с помощью документа в броузере можно обращаться непосредственно к содержанию тегов к примеру <p>...</p> и прямо туда уже добавлять текст и конечно же без сохранения в файл и динамической перезагрузки страницы. Почитайте в MSDN ( вроде ) есть про Document

поискал немного в старинке своей вот нашел..

это всеголиш вставки в броузер... но в ходе описаны некоторые идеи и главное удобства... так что вчитайтесь и просмотрите данный кусок кода:

function GetTextFromWebBrowser(WB: TWebBrowser): String;
var
  Document: IHTMLDocument2;
begin
  Result := '';
  Document := WB.Document as IHtmlDocument2;
  if Document <>  nil then
    Result := (Document.all.Item(NULL, 0) as IHTMLElement).OuterTEXT;
end;

procedure TextToWebBrowser(Text: string; var WB: TWebBrowser);
var
  Document: IHTMLDocument2;
  V: OleVariant;
begin
  // Документ необходимо создать только один раз за текущую сессию работы
  if WB.Document = nil then
    WB.Navigate('about:blank');
  // Ожидаем создания документа и позволяем обрабатывать все сообщения
  while WB.Document = nil do
    Application.ProcessMessages;
  Document := WB.Document as IHtmlDocument2;
  // Вставляем текст (до 2Гб)
  {следующие строчки внесены недавно - старый вариант функции не работал под XP}
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := Text;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;
end;

procedure AddLine;
var
  b: TBitmap;
  s: string;
  i, j: Integer;
begin
  if ImageIndex >= 0 then
  begin
    s := format('%sCashe\%d.bmp',[startdir, ImageIndex]);
    createdir(extractfilepath(s));
    if not fileexists(s) then begin
    b := tbitmap.Create;
    Images.GetBitmap(ImageIndex, b);
    b.SaveToFile(s);
    b.Free;
    end;
    s := format('<img src="%s">',[s]);
  end else s := '';

    for i:= 0 to sp.Count-1 do
    with TSmile(sp.Items[i]) do
    begin
      for j:= 0 to 31 do
      if length(Code[j])>0 then
      begin
        text := StringReplace(
          text,
          CODE[j],
          format('<img src="%s">', [Image]),
          [rfIgnoreCase]
        );
      end;
    end;
    
    text := StringReplace(text, '<color=', '<font color=', [rfIgnoreCase]);
    text := StringReplace(text, '</color>', '</font>', [rfIgnoreCase]);
  
  case Flag of
  // простой текст
  0:begin
    s := format(
    '%s%s<br>'
    ,[s,text]
    );
    if Histor <> nil then Histor.Add(text);
  end;
  // отправленый текст
  1:begin
    s := format(
    '%s<b><font color="blue">%s<br></font></b>'
    ,[s,text]
    );
    if Histor <> nil then Histor.Add(format('-->--%s',[text]));
  end;
  // принятый текст
  2:begin
    s := format(
    '%s<b><font color="red">%s<br></font></b>'
    ,[s,text]
    );
    if Histor <> nil then Histor.Add(format('--<--%s',[text]));
  end;
  // инфа всякая
  3:begin
    s := format(
    '%s<b><font color="green">%s</font></b><br>'
    ,[s,text]
    );
    if Histor <> nil then Histor.Add(text);
  end;
  end;

  WB.OleObject.Document.all.tags('P').item(0).insertAdjacentHTML('beforeEnd',s);
  WB.OleObject.Document.ParentWindow.ScrollTo(0, maxint);
end;

[NoName_emaNoN]

Мне кажется кто захочет понять этот текст для того это будет большая трудность чем первый способ.
Ну а если просто вставить текст в модуль и использовать... В принципе тоже самой и будет.

А на счёт переменных: что там сложного? Только переменную TStrings завести и создать её, потом уничтожить. Всё!

[BOBAH13]

А мне кажется, у кого голова на плечах работает поймет и Вы представте себе чат сетевой. Кол-во людей ~100 и каждый пишет в окно броузера! Подумайте, как сложно и проблематично будет с копированием буфера всего текста броузера добавление в него новых данных и опять вставки в броузер. Поверьте я работал с данным вопросом и этот способ который я привел выше лучше.

[GAGARIN-NEW]

Сообщение от BOBAH13

А мне кажется, у кого голова на плечах работает поймет и Вы представте себе чат сетевой. Кол-во людей ~100 и каждый пишет в окно броузера! Подумайте, как сложно и проблематично будет с копированием буфера всего текста броузера добавление в него новых данных и опять вставки в броузер. Поверьте я работал с данным вопросом и этот способ который я привел выше лучше.

Вообщето я буду ограничивать количество "строк" в браузере и старые сообщения наверно будут удалятся... а проблему я вроде решил тем способом каким тут написал только вместо переменной я поставил невидимаю мемо - она - же для ведения лога и сохранения разговора ...