|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.07.2007, 17:50 | #1 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
TIdMultiPartFormDataStream undeclared identifier
Код:
38) Undeclared identifier ‘TIdMultiPartFormDataStream’ 40) Missing operator or semicolon 41) Missing operator or semicolon 43) The is no overloaded version of ‘Post’ that can be called with these arguments 44) Missing operator or semicolon Подскажите пожалуйста что я сделал не так? |
18.07.2007, 17:52 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
uses IdMultipartFormData;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
18.07.2007, 18:13 | #3 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
Спасибо, запустилось.
Идею наверняка вы понели. Програмка загружает картинки на imageshack.us. Подскажите, а каким образом теперь вывести в WebBrowser1 вот эти строчку с http://www.imageshack.us/?: Код:
---- Код:
Последний раз редактировалось celovec; 18.07.2007 в 18:36. |
19.07.2007, 09:04 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Тебе надо картинку вывести или HTML код ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
19.07.2007, 11:24 | #5 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
Квэнди, нужно вывести этот html код:
Код:
|
19.07.2007, 11:55 | #6 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
procedure TextToWebBrowser(Text: string; var WB: TWebBrowser_V1);
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;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
19.07.2007, 12:37 | #7 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
А где вы нашли процедуру TextToWebBrowser?
Если просто вставить ваш код пиявляются эти ошибки: Код:
|
19.07.2007, 12:45 | #8 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
проверьте чтобы в uses были эти модули ActiveX, SHDocVw, MSHTML, Forms
Вызывайте эту процедуру, передавая ей ваш текст и название вашего Twebbrowser
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
19.07.2007, 13:08 | #9 | ||
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
Цитата:
Цитата:
|
||
19.07.2007, 13:31 | #10 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
TextToWebBrowser(<ntrст который необходимо отобразить в браузере>,имя вашего TwebBrowser-а);
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Error] UnitMain.pas(40): Undeclared identifier: 'ShellExecute' | Manitu | Помощь студентам | 9 | 07.03.2008 18:17 |
Expected an identifier but string found | Maugli-rus | Общие вопросы Delphi | 3 | 23.12.2007 20:00 |