Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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

   

GreatOne



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как из TWebBrowser можно получить все ссылки на странице и текст этих ссылок?
Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 13:29 17-04-2007
Jokerjar



BANNED		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
for k := 0 to Browser.OleObject.Document.Links.Length - 1 do
  begin
    inner := Browser.OleObject.Document.Links.Item(k).innerHTML;
    href := Browser.OleObject.Document.Links.Item(k).href;
  end;
 
inner - текст k-ой ссылки
href - сама ссылка
Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 13:33 17-04-2007
GreatOne



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jokerjar
 
Спасибо большое!
 
Добавлено:
А как сохранить страничку не загружая ее в TWebBrowser? Как такое реализовать?
 
Добавлено:
И как еще из дельфи-приложения заархивировать файл в формат винрар? Мож ссылки на статьи есть у кого нить?
Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 13:43 17-04-2007 | Исправлено: GreatOne, 17:07 17-04-2007
OdesitVadim



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

Цитата:
А как сохранить страничку не загружая ее в TWebBrowser? Как такое реализовать?

idhttp

Цитата:
И как еще из дельфи-приложения заархивировать файл в формат винрар? Мож ссылки на статьи есть у кого нить?

Взять рар и передать ему параметры. Алгоритм рара не разрешается так просто воспроизводить. А вот распаковывать - используем unrar.dll. Статей на эту тему много

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.
Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 19:09 17-04-2007
iogun



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
1.
function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT
2.  
Сама комманда rar rar.exe a -o+ -r D:\backup\backup.rar
про параметры комм. строки рара можно почитать в справке, кстати очень много можно сделать.
3. Итого
вызываем из делфи
WinExec('каталог с раром\rar.exe a -o+ -r <имя архива>', SW_SHOW)
Всего записей: 477 | Зарегистр. 31-08-2004 | Отправлено: 23:00 17-04-2007 | Исправлено: iogun, 23:06 17-04-2007
GreatOne



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim
 
idhttp? Можешь подробней команду написать?
Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 10:18 18-04-2007
Mandor Sawall

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
IdHTTP - ето компонента из Indy. Конкретная реализация немножко различна в Indy 9 и Indy 10, так что смотри на примеры в пакете.
Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 10:05 19-04-2007
Dunkel1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Имеется эллипс(круг), который ограничен прямоугольником EllipseRect. Требуется заполнить множество S точками, которые принадлежат этому кругу(лежат внутри). Для этого использую следующий код:

Код:
 
 
  TMyPoint = class
  public
    x: Integer;
    y: Integer;
    constructor Create(tX: Integer; tY: Integer);
  end;
  ...
  constructor TMyPoint.Create(tX: Integer; tY: Integer);  
  begin
    x := tX;  y := tY;
  end;
  ...
 
  S: DSet;
  EllipseRect: TRect;
  j,k: Integer;
  Rgn: HRGN;
  ...
 
  Rgn := CreateEllipticRgnIndirect(EllipseRect);
  if Rgn <> 0 then  
    try
      for j := EllipseRect.Top to EllipseRect.Bottom do
        for k := EllipseRect.Left to EllipseRect.Right do
          if PtInRegion(Rgn,j,k) then  
                S.add([TMyPoint.Create(j,k)]);  
 
    finally
      DeleteObject(Rgn);
    end;
     
 

 
Данный код работает верно, только тогда, когда EllipseRect.Top=EllipseRect.Left.  
В чем прикол ???
Всего записей: 25 | Зарегистр. 15-11-2005 | Отправлено: 20:53 19-04-2007
OdesitVadim



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GreatOne
s:=IdHTTP1.Get('http://www.site.ua');
Всё, в переменной s содержимое страницы

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.
Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 23:48 19-04-2007
AndVGri

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dunkel1
Обычно координаты описываются в таком порядке x, y; где x- горизонтальная ось, y - вертикальная. У вас, по моему, всё с ног на голову;). Попробуйте так
    if PtInRegion(Rgn,k,j) then  
                S.add([TMyPoint.Create(k,j)]);  
Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 05:38 20-04-2007
GreatOne



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim
 
Спасибо!
Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 10:08 20-04-2007
Dunkel1

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

Цитата:
Dunkel1  
Обычно координаты описываются в таком порядке x, y; где x- горизонтальная ось, y - вертикальная. У вас, по моему, всё с ног на голову;). Попробуйте так  
    if PtInRegion(Rgn,k,j) then    
                S.add([TMyPoint.Create(k,j)]);  

 
Да, только сегодня ночью заметил эту дурацкую ошибку, глаз замылился )))) Спасибо !!!
 
Всего записей: 25 | Зарегистр. 15-11-2005 | Отправлено: 14:13 20-04-2007
GreatOne



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди!! Подскажите плиз как в документ MS Word2003 записать гиперссылку?
Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 15:22 20-04-2007
bytex

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет,
 
Импортировал type library из tlb, создаю объект, вызываю метод, при запуске из под IDE, получаю исключение:
Project raised exception class EOleException with message 'Invalid access to memory location'
 
Если же запускать exe'шник ручками, т.е. не из под IDE, то ошибки не выдается и код отрабатывает нормально.
 
Кто нибудь сталкивался с такой ситуацией ? Хоть бы знать в какую сторону копать. Заранее благодарю.
Всего записей: 127 | Зарегистр. 01-05-2003 | Отправлено: 18:51 20-04-2007
jONES1979



Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
bytex про твою ситуацию ничего не скажу, но аналогичное тоже происходило. Раз без IDE всеработало гладко, то я и забил.  
Просто могу посоветовать на конкретно этом участке кода отключить реакцию на исключения. Это можно сдалать в advanced- настройках в диалоге breakpoints: отключить реакцию "Break" и включить "Ignore subsequent exceptions"
Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 15:45 21-04-2007
Seldon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
несколько вопросов по Delphi2007 for win32
* Для чего нужна опция Tools>Options>Environment Options>Default Project ?
* В выпадающем меню Инспектора-объектов есть пункт "Revert to inherited". Как я понимаю, он должен возвращать изменённые мной свойства текущего компонента к их дефолтным значениям... Но он этого не делает. Я вообще не заметил каких либо действий с его стороны. Что не так?
* На странице Tools>Options>Environment Options>Environment Variables переопределяю переменные BDSUSERDIR и BDSPROJECTSDIR, но среда всё равно создаёт папку "%Мои документы%\RAD Studio\Projects" и предлагает её для сохранения новых проектов. Как побороть?
* В хелпе (ms-help://borland.bds5/devcommon/idetour_xml.html) написано следующее: "When you add a nonvisual component to a form, it is displayed in the component tray at the bottom of the Designer surface. The component tray lets you distinguish between visual and nonvisual components." Как я понимаю, невизуальные компоненты должны отображацца не на самой форме, я где-то вне неё. Но этого не происходит и опции, отвечающей за это, я не нашёл. Ктонить вкурсе про это?
Всего записей: 8 | Зарегистр. 15-06-2006 | Отправлено: 19:49 21-04-2007
jONES1979



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

Цитата:
* В выпадающем меню Инспектора-объектов есть пункт "Revert to inherited". Как я понимаю, он должен возвращать изменённые мной свойства текущего компонента к их дефолтным значениям... Но он этого не делает. Я вообще не заметил каких либо действий с его стороны. Что не так?  

ты немного недопонял. Эта команда возвращает "св-ва тек.компонента" не к их дефолтным значениям, а к их значениям на форме-предке в случае использования такой фишки как visual inheritance. То есть когда у тебя в проекте есть форма-предок и от неё формы наследники. В наследнике ты можешь переопределить некоторые св-ва для компонента обявленного в предке, и с помощью "Revert to inherited" вернуть их к прежним значениям. Подробнее... [?]
 
Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 21:11 21-04-2007 | Исправлено: jONES1979, 21:14 21-04-2007
Seldon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jONES1979, спасибо, понял
Всего записей: 8 | Зарегистр. 15-06-2006 | Отправлено: 22:13 21-04-2007
GoldFire

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
прошу помочь с написаниями двух заданий в этом языке программирования:
 
1. Разработайте следующие классы и приложение, в котором создаются несколько экземпляров разработанных классов. Каждый класс должен содержать поля, характеризующие описываемый предмет. Инициализация этих полей может проводиться и в конструкторе, кроме того, должны быть методы, меняющие эти поля. Каждый раз при успешном создании очередного экземпляра класса должно выводиться соответствующее сообщение. Акции и их владельцы. Владелец имеет сведения об акциях, а в акциях фиксируется информация об их владельце
 
2. Придумайте и разработайте иерархию классов, основываясь на следующем предмете (список - см. ниже). В иерархии должно быть не менее трех уровней, должны переопределяться методы, должны быть использованы все модификаторы доступа (обоснованно). На каждом уровне иерархии (кроме первого) должно быть не менее двух классов. Кроме того, должен быть написан тестирующий класс (или метод), демонстрирующий все возможности Вашей иерархии. емкость
Всего записей: 29 | Зарегистр. 18-11-2006 | Отправлено: 22:40 21-04-2007
Seldon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ещё трабла (в дополнение к вышенаписанному): в предыдущих версиях в списке CodeCompletion обозначение типа элемента (proc, func, prop, var etc) писалось разными цветами в зависимости от этого самого типа. в 2007 они все пишуцца одним цветом - ориентировацца совершенно невозможно. кто знает как поправить?
Всего записей: 8 | Зарегистр. 15-06-2006 | Отправлено: 23:32 21-04-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