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

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

   

Sampron

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

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



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron
Ошибка у тебя странная, как будто ты dcu файл как текстовый пытаешься открыть
Давай исходник.

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

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

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 19:53 27-11-2007
nuker2015



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
adg208
Цитата:
Например: а+а=2а, b+b+b=3b, c+'пустая ячейка'+с+'пустая ячейка'+'пустая ячейка'=2с
Результат должен имет вид:
Например 2а - 4b - с - 3а

Всего этого можно добиться средствами самого Эксэля(если ты к нему подключаешься как к ком.объекту) VBA тебе в помощь.
Иначе: Если ты работаешь напрямую с XLS (Например XLSFile, XLSReadWrite и тп.) то только логикой в твоём роекте непосредственно.
Тебе только по строкам(rows) надо логику построить или ищешь универсальное решение(обработка одинаковых ячеек по всему листу..книге)?

Всего записей: 132 | Зарегистр. 26-10-2005 | Отправлено: 20:13 27-11-2007
dominiksus



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

Цитата:
for i := 0 to ComponentCount-1 do  
  if Components[i] is TRxGifAnimator then  
    TRxGifAnimator(Components[i]).Property :=  

 
неа, выдает ексепшин в рантайме
 
нашел верное решение:
 

Цитата:
for i := 0 to ComponentCount - 1 do  
if Components[i] is TRxGifAnimator then
(Components[i] as TRxgifanimator).animate := true;

 

 
Добавлено:
а вот еще ворпос: как в компоненте TwebBrowser, который переведен в режим редактирования получить событие OnChange или какое-то близкое к нему?

Всего записей: 119 | Зарегистр. 11-08-2007 | Отправлено: 22:53 27-11-2007 | Исправлено: dominiksus, 23:00 27-11-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc
У нас динамические IP адреса и может смениться также шлюз. Ну а так провайдер не выдает подробный список адресов, поэтому находятся умельцы и добавляют новые маски айпишников. Вот и захотелось их все совместить в одной программе и выбирать прописку требуемых маршрутов.
Посмотрел я примеры по использованию этой функции. Правда потом скачал пример от Rouse еще, где показано как можно больше извлечь информации об адаптере.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 01:23 28-11-2007
greenpc

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

Цитата:
У нас динамические IP адреса  

это было и так понятно из первого поста.
я так понял вопрос закрыт.

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 08:37 28-11-2007
vladk1973



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sampron
Я скачал эти исходники, прокомпилировал в Delphi6, Не вижу проблемы чесслово.
 

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

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

Цитата:
а вот еще ворпос: как в компоненте TwebBrowser, который переведен в режим редактирования получить событие OnChange или какое-то близкое к нему?  

Если в этом компоненте реализован интерфейс IDocHostUIHandler, то вызов его функции UpdateUI можно считать этим событием. Если интерфейс не реализован, то дабавь сам или возьми более развитый EmbeddedWB (http:\\bsalsa.com).

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

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

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



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
Давно это было, но помоему D2 не поддерживает интерфейсы. Возможно, в этом дело.

Всего записей: 2391 | Зарегистр. 24-08-2007 | Отправлено: 09:48 28-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ymg2000
хм... интересно, D3 компилит а D2 нет.

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



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
D3 интерфейсы поддерживает, а D2 нет. Также не помню точно, поддерживает ли D2 длинные строки. В любом случае лучше меняй версию, иначе постоянно будут проблемы,
если что-то сложнее "Hallow, world".

Всего записей: 2391 | Зарегистр. 24-08-2007 | Отправлено: 10:38 28-11-2007
Sampron

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ymg2000
мда... хреново, менять версию не катит, мне важен размер готового файла.
Тогда можно этот код как-то преобразовать для .bmp :
 
procedure TMainForm.SetBackImage(const APath: String);
var
  BImage: TJPEGImage;
begin
  if APath <> '' then
    begin
      BImage := TJPEGImage.Create();
      try
        BImage.LoadFromFile(APath);
        MainForm.BackImage.Picture.Bitmap.Assign(BImage);
        MainForm.BackImage.Update();
      finally
        BImage.Free;
      end;
    end else
    begin
      MainForm.BackImage.Picture.Bitmap.Dormant;
      MainForm.BackImage.Picture.Bitmap.FreeImage;
      MainForm.BackImage.Picture.Bitmap.ReleaseHandle;
      MainForm.BackImage.Update();
      MainForm.Repaint;
    end;
end;  

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



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята подскажите пожалуйста как сделать чтобы программа посылала по интернету
содержимое поля Memo.

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



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
anfilat
 
что-то я не могу найти в этом EmbeddedWB никакого подходящего события
а onchange тоже нету...
и как теперь его в режим редактора перевести?

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

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ivansaraev
indy, ics и тому подобные компоненты
любой пример чата
 
 

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 12:23 28-11-2007
anfilat

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

Цитата:
что-то я не могу найти в этом EmbeddedWB никакого подходящего события

Вешайся на OnUpdateUI и внутри него спрашивай браузер о его состоянии
 
function TEditorDlg.wbUpdateUI: HRESULT;
begin
  UpdateDisplay;
  result := S_OK;
end;
 

Цитата:
и как теперь его в режим редактора перевести?

var
    wb: TEmbeddedWB;
...
procedure TEditorDlg.FormShow
...
TEwbCore(wb).DesignMode := true;

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



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

Цитата:
procedure TMainForm.SetBackImage(const APath: String);
var
  BImage: TJPEGImage;
begin
  if APath <> '' then
    begin
      BImage := TJPEGImage.Create();
      try
        BImage.LoadFromFile(APath);
        MainForm.BackImage.Picture.Bitmap.Assign(BImage);  <-------Обращение к осутсвующему компоненту формы
        MainForm.BackImage.Update();
      finally
        BImage.Free;
      end;
    end else
    begin
      MainForm.BackImage.Picture.Bitmap.Dormant;  
      MainForm.BackImage.Picture.Bitmap.FreeImage;
      MainForm.BackImage.Picture.Bitmap.ReleaseHandle;
      MainForm.BackImage.Update();
      MainForm.Repaint;
    end;
end;  

У тебя ошибка не в версии, а в самом коде
Брось на форму TImage и обзови его BackImage
И будет тебе счастье

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

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vladk1973
Скорее всего в версии, добавил к форме этот код:
 
object BackImage: TImage
    Left = 0
    Top = 0
    Width = 206
    Height = 158
    Align = alClient
    AutoSize = True
    Center = True
 end
 
 и не помогло, та же ошибка, так что счастья небудет.

Всего записей: 563 | Зарегистр. 06-01-2007 | Отправлено: 13:28 28-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