Вопросы по Delphi (все версии) - часть 3 - [69] :: Прикладное программирование :: Компьютерный форум Ru.Board
Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron
Ну. елки, не понял я как ты код добавляешь.
Во второй версии есть компонент TImage
Ты просто брось его на форму, в коде ничего писать не надо
Компоненту дай имя BackImage

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 13:46 28-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня версия Delphi client/server suite 2.0
 
В файл Main.pas я добавил:
 type
  TMainForm = class(TSetupForm)
    BackImage: TImage; <--------это добавил
 
и форму Main.dfm сделал такой:
object MainForm: TMainForm
  Left = 191
  Top = 104
  Width = 214
  Height = 192
  Color = clNavy
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefault
  OnCloseQuery = FormCloseQuery
  OnKeyDown = FormKeyDown
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object BackImage: TImage
    Left = 0
    Top = 0
    Width = 206
    Height = 158
    Align = alClient
    AutoSize = True
    Center = True
  end
end

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 13:55 28-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
вах, люди получается!
подскажите еще, как обработать исходный хтмл из twebbrowser (в режиме редактирования)  
выкусить текст между <BODY> </BODY> и скопировать его в буфер?
я уже пробовал такое:

Цитата:
Range := (editor.selection.createRange as IHTMLTxtRange);
CopyStringToClipboard(range.htmlText);


Цитата:
procedure CopyStringToClipboard(s: string);
var
  hg: THandle;
  P: PChar;
begin
  hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);
  P:=GlobalLock(hg);
  StrPCopy(P, s);
  GlobalUnlock(hg);
  OpenClipboard(Application.Handle);
  SetClipboardData(CF_TEXT, hg);
  CloseClipboard;
  GlobalFree(hg);
end;

не копируется

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 13:55 28-11-2007 | Исправлено: dominiksus, 13:57 28-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron

Цитата:
BackImage: TImage; <--------это добавил  

Это неправильно
Ничего декларировать в классе не надо
И в DFM тоже менять не надо.
Работай МЫШКОЙ
С панели инструментов перетащи МЫШКОЙ компонент TImage на форму MainForm

Всего записей: 674 | Зарегистр. 23-03-2005 | Отправлено: 14:10 28-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vladk1973

Цитата:
С панели инструментов перетащи МЫШКОЙ компонент TImage на форму MainForm

Это тоже самое что и вручную прописать.
Скачай мою версию Delphi client/server suite 2.0 (53мб) и попробуй скомпилить, у меня не компилит.
После установки отмени онлайн регистрацию и с папки register скопируй файлы в папку C:\Program Files\Borland\Delphi 2.0\LIB

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 14:42 28-11-2007
anfilat

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dominiksus

Цитата:
подскажите еще, как обработать исходный хтмл из twebbrowser (в режиме редактирования)  
выкусить текст между <BODY> </BODY> и скопировать его в буфер?  

Проблема с выкусыванием или с копированием строки в буфер? Если первое, то например так:
 
var
  collect : IHTMLElementCollection;
  html : IHTMLElementCollection;
  it : IHTMLElement;
  ws : WideString;
begin
  collect := wb.Document.all;
  html := collect.tags('body') as IHTMLElementCollection;
  it := html.item(0, varempty) as IHTMLElement;
   ws := it.innerHTML;
 
В реальном коде надо еще все это обложить кучей проверок и try\except

Всего записей: 845 | Зарегистр. 12-08-2005 | Отправлено: 15:56 28-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
нет проблем с выкусыванием, откушу как-нить , надо только как-то получить весь HTML, только вот как?

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 18:05 28-11-2007
Arvur



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
TankMan

Цитата:
Может кто помочь? У меня такая задача - хочу в TVirtualTreeView а точнее DrawTreeView (кажись так) сделать так, чтобы занося данные в колонку (у меня она только одна) при достижении нижнего края компонента DTV не скроллинг появлялся, а новые даннные отображались в новой, второй колонке

Получилось?
Я бы наверное пересчитывал количество колонок от объема данных. Или нашлось более разумное решение?
 
Добавлено:
dominiksus
Нужен код документа или исходного файла?
В этой базе было что-то подобное
_http://quadro.drkb.ru
Еще можно покопать bsalsa.com

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 20:47 28-11-2007
Santa_Cruz

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите ссылкой на Update 2 к Delphi 7 Ent...

Всего записей: 64 | Зарегистр. 17-09-2006 | Отправлено: 22:37 28-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Нужен код документа или исходного файла?

нужен html код, который я могу получить в рантайме след. путем:
в пустой области webbrowser клик правой кнопкой, там появляетса меню, выбираем пункт "Исходный код" (у меня немецкая винда, поэтому название может быть не таким) и там в блокноте открывается хтмл код страницы.
 
у меня этот ДРКБ какой-то нечитаемый интерфейс имеет, даже аплокале не помогает

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 22:40 28-11-2007
Arvur



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
dominiksus
Наверное, вот сюда стоит смотреть
_http://www.excode.ru/art1532p9.html
_http://www.ishodniki.ru/list/info.php?id=518
Просто нашел в инете статьи из DRKB Должно помочь.
... есть еще outerHTML, но там уже код, обработанный браузером...

Цитата:
у меня немецкая винда

Цитата:
 меня этот ДРКБ какой-то нечитаемый интерфейс имеет

Сталкивался - немецкая винда хочет хорошо проработанного юникода У тебя ведь еще и локаль небось не русская...
 
Добавлено:
Santa_Cruz

Цитата:
Update 2 к Delphi 7 Ent

А был такой?! Я знаю только Update #1 Release 2
Раньше лежал здесь
_ftp://ftpd.borland.com/devsupport/delphi/d7/update1r2/Delphi_71_Ent_Update_Inline/d7_ent_upd1_1.exe

Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 00:23 29-11-2007 | Исправлено: Arvur, 00:34 29-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Наверное, вот сюда стоит смотреть  

 
спасибо, кстати нашел это-же решение в ДРKБ

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 01:05 29-11-2007
Rudia



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Santa_Cruz
Рекомендую поискать Delphi 7 second edition - сборка от народных умельцев. Со всеми официальными апдейтами. Тут описание:
Подробнее... [?]
весит ~45 метров;)

Всего записей: 324 | Зарегистр. 13-09-2006 | Отправлено: 01:21 29-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здесь много версий лежит: http://www.delphilab.ru/content/view/87/75/

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 01:38 29-11-2007
adg208

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
greenpc

Спасибо, помогло.

Всего записей: 159 | Зарегистр. 26-12-2003 | Отправлено: 04:53 29-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
луди, просьба протестировать на русской (а возможно и на немецкой) винде данную прогу, т.к. пишу в немецкой винде, и хотя у меня все отображается норм, все же имею сомнения или будет русский нормально читаться у других людей (с нем. виндой), которым она предназначена.
просто гляньте, на форме и на кнопке читается ли русский текст.
 
dump.ru/files/n/n6912301862/

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 14:20 29-11-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dominiksus
проверил. Windows XP. русская. на формочке всё по русски. только Вы не учитываете размер шрифта (у меня стоит в системе "крупный шрифт")

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 15:44 29-11-2007
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dominiksus

Цитата:
...CloseClipboard;  
  GlobalFree(hg); //<---????
end;  
 
не копируется

Была у меня демка копирования в буффер и там написано - НЕЛЬЗЯ ДЕЛАТЬ GlobalFree, вообще нельзя высвобождать память, если Вы это сделаете то это будет то же самое что спрашивает Word при выходе - "в буффере обмена большой кусок, хотите оставить его для других приложений?". Так что память освобождать не надо.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 16:08 29-11-2007
dominiksus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
проверил. Windows XP. русская. на формочке всё по русски

пасибо

Цитата:
 Так что память освобождать не надо

ок, не буду.
это вообще не мой код, в инете нашел...

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 20:02 29-11-2007
ALPeresvet

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте. Очень нужен совет специалиста.
У меня такой вопрос: необходимо вызвать файл помощи *.hlp из приложения, созданного без VCL Form. Выходным файлом является динамическая библиотека для системы "Компас" - а управляет вводом данных простая форма(*.exe в проекте нет). НО, файл помощи надо вызвать из каталога, в котором лежит сама динамическая библиотека, т.е путь - не жесткий (/*.hlp). С помощью ShellExecute получается только указанием жесткого пути. Помогите пожалуйста.
PS надеюсь вопрос задан достаточно корректно.
Заранее спасибо.

Всего записей: 13 | Зарегистр. 29-11-2007 | Отправлено: 22:36 29-11-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru