Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2012, 13:50   #1
spydark91
Форумчанин
 
Регистрация: 01.06.2011
Сообщений: 215
По умолчанию вставка текста в веббраузер

при выполнении данного кода
Код:
procedure TForm1.AddNewMsg(Name, Date, Time, {Smiles,} Text:string);
var s,AddMsg:string;
    Smile:array[1..50] of Sm;
    i,SmilesCount:integer;
begin
SmilesCount:=1;
i:=0;
AddMsg:='<table><tr><td rowspan="2"><b>'+Name+'</b></td><td>'+Time+'</td></tr><tr<td>'+Date+'</td></tr></table><br>';//вставили строку,содержащюю имя и время и пометели жирны
 
 
StringReplace(Text,':)',DetectSmile(':)'),[rfReplaceAll]);
DeleteFile(ExePath);
 
 
StringReplace(Text,'[eos]','<br>',[rfReplaceAll]);//заменяем на ентер все символы ентера
Form1.RefreshBrowser(Text);
end;
 
procedure TForm1.RefreshBrowser(Text: string);
begin
WebBrowser2.OleObject.Document.Write('<html><body>'+Text+'</body></html>');//тут ошибка
end;
дает ошибку
ошибка вылетает при добавлении текст в браузер 100%

но если написать просто так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var text:string;
begin
text:='<b>text</b>';
WebBrowser2.OleObject.Document.Write('<html><body>'+Text+'</body></html>');
end;
то все нормально

процедура AddNewMsg вызывается из другого потока без синхронизации(с ней почем-то не хочет),если это имеет значение
Изображения
Тип файла: jpg Безымянный (1).jpg (63.7 Кб, 114 просмотров)
Тип файла: jpg Безымянный1 (1).jpg (71.2 Кб, 126 просмотров)
spydark91 вне форума Ответить с цитированием
Старый 06.01.2012, 16:14   #2
spydark91
Форумчанин
 
Регистрация: 01.06.2011
Сообщений: 215
По умолчанию

процедура AddNewMsg вызывается из другого потока без синхронизации(с ней почем-то не хочет),если это имеет значени
spydark91 вне форума Ответить с цитированием
Старый 08.01.2012, 15:40   #3
spydark91
Форумчанин
 
Регистрация: 01.06.2011
Сообщений: 215
По умолчанию

никто не знает?
spydark91 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка текста praid92 C# (си шарп) 2 28.10.2011 17:27
вставка и сокрытие текста ФАНАТИЧКА Microsoft Office Word 1 05.03.2011 02:52
Вставка текста в RichEdit NoName_emaNoN Компоненты Delphi 4 03.05.2008 12:12
Вставка текста Pedro Общие вопросы Delphi 4 27.01.2008 10:27
! Вставка текста ! ♠STO♠ Общие вопросы Delphi 2 30.08.2007 17:05