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

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

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

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 102

   

zenix

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, где взять документацию на русском по Wise Installer?

Всего записей: 1 | Зарегистр. 21-07-2003 | Отправлено: 11:42 22-07-2005
ShIvADeSt



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

Цитата:
Подскажите, где взять документацию на русском по Wise Installer?

А при чем здесь вопросы по Делфи? Есть отдельный топик по инсталляторам, там и спроси.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:43 25-07-2005
dDE



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте! У меня небольшая проблема с потоками/XMLDocument'ом. Есть проект, если в модуле главной формы динамически создавать XMLDocument, то он работает абсолютно нормально, но если создавать XMLDocument в потоке, то выдаётся следующее сообщение:
 
"Project Project1.exe raised exception class DOMException with message 'Microsoft  
MSXML is not installed'."
 

Код:
 
unit XMLThread;
 
interface
 
uses
  XMLDoc, xmldom, XMLIntf, msxmldom;
 
type
  TXMLThread = class(TThread)
  public
    URL: String;
  protected
    procedure Execute; override;
  end;
 
implementation
 
procedure XMLThread.Execute;
var XML: TXMLDocument;
begin
  XML := TXMLDocument.Create(Self.URL);
  XML.Active := True;
end;
 
end.
 

Всего записей: 63 | Зарегистр. 09-04-2004 | Отправлено: 10:40 25-07-2005
vserd

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dDE
ты в потоке выполняешь инициализацию COM?
CoInitialize(nil);
 

Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 11:59 25-07-2005
dDE



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vserd
 
Тьфу ты, забыл. Спасибо

Всего записей: 63 | Зарегистр. 09-04-2004 | Отправлено: 12:28 25-07-2005
MICROPOM



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

Цитата:
Странно - у меня даже досовские .BAT файлы со всякими pause тушит (из-под любых виндов).  

Действительно странно, но всёравно неработает.
Може ещё разик свой код скинеш?

Всего записей: 30 | Зарегистр. 23-11-2004 | Отправлено: 14:26 25-07-2005
VladIs

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, есть два вопроса.
1. Как открыть новое окно из программы на второй монитор?
2. Есть набор файлов (html-страницы) и надо их "спрятать" в нечто, подробное архиву. (Не читаемое простыми способами, но при этом достаточно быстро работающее). Какой вариант реализации на Ваш взгляд лучше?

Всего записей: 9 | Зарегистр. 12-08-2004 | Отправлено: 21:41 25-07-2005
ShIvADeSt



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

Цитата:
 Есть набор файлов (html-страницы) и надо их "спрятать" в нечто, подробное архиву.

запихни все это дело в ресурс и когда надо загружай. Простыми способами читаться не будет. Если же надо чтобы и послежнее не читалось, то упакуй программу чем нить, что пока не распаковывается.

Цитата:
1. Как открыть новое окно из программы на второй монитор?

надо вначале определить, есть ли вообще второй монитор, и не запущена ли сама прога на втором мониторе, за неимением оного предлагаю определить отношение ширины экрана к высоте и если оно больше стандартных, то значит моников 2, потом смотришь позицию своей программы и оппределяешь из нее на каком из моников она запущена, а потом при запуске нового окна устанавливаешь его позицию так, чтобы оно было на другом монике.
ЗЫ мониторы могут быть расширены не только по горизонтали.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:40 26-07-2005
FAngel



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VladIs
По второму пункту можешь воспользоватся чем нибудь типа FlexCompress

Всего записей: 799 | Зарегистр. 04-12-2003 | Отправлено: 09:10 26-07-2005
Postscriptum



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, плиз, ессть ли компоненты для Delphi, которые позволяют зарегистрировать приложение как службу в Windows NT/2000/XP, проверять, запущена ли какая-либо служба или нет, запускать и останавливать службы?

Всего записей: 464 | Зарегистр. 31-01-2004 | Отправлено: 14:07 26-07-2005
Solnake



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите, как узнать какие длл-ки погружает екзешник проги, а то уже задолбался.
Пишу прогу - все работает супер, а вот с переносимостю её на другие компы - туговато.

Всего записей: 826 | Зарегистр. 16-09-2004 | Отправлено: 18:20 26-07-2005
GloThin



Тобольский шашлычник
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Solnake

Цитата:
как узнать какие длл-ки погружает екзешник проги,

Попробуй программу FILEMON с фильтром по названию программы, которую надо проверить....

----------
Все принципиальное-просто,а все простое-принципиально!
На каждого мудреца достаточно простоты!
Не изменишь существующее,не изменив себя!!

Всего записей: 709 | Зарегистр. 28-04-2004 | Отправлено: 18:40 26-07-2005
OdesitVadim



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

Цитата:
Подскажите, плиз, ессть ли компоненты для Delphi, которые позволяют зарегистрировать приложение как службу в Windows NT/2000/XP

ПРограмма должна быть написана соответствующим образом, чтобы быть сервисом. Правда есть прога (имя не помню), которая может заставить работать приложение сервисом, но только для несетевых приложений.

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

www.delphiworld.narod.ru/base/run_or_start_service.html  - читаем, присвещаемся

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 19:23 26-07-2005
VladIs

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за советы, но второй вопрос так и не остался до конца решенным.
Наверно я не очень хорошо сформулировал... Дело обстоит так:
Есть порядка 1000 html страниц, которые необходимо отображать в зависимости от команд пользователя. Отображение происходит в TWebBrowser и страницы взаимосвязаны.
Задача: "спрятать" страницы от любопытных глаз, при этом не потеряв возможность "на лету" переключаться между ними по гиперссылкам. Идеал - компонент, работающий с архивом как с виртуальной файловой системой.

Всего записей: 9 | Зарегистр. 12-08-2004 | Отправлено: 00:12 27-07-2005
CTOKOTOB



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Совсем простой вопрос: тот факт, что в проекте типа "WinForms/Delphi.NET" не работает Forms в опциях проекта, был замечен уважаемой публикой? Это похоже на баг? Ведь во всех остальных видах проектов оно работает нормально.
 
Версия 2005 со всеми апдейтами...

Всего записей: 234 | Зарегистр. 30-01-2003 | Отправлено: 01:42 27-07-2005 | Исправлено: CTOKOTOB, 01:45 27-07-2005
Sexton

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VladIs, попробуй Solid File System (http://www.eldos.org/) и Single File System (http://www.aidaim.com/products/sfs/sfs_spec.php). Также можно посмотреть FileStorage (www.appcontrols.com), Block File (http://www.jazarsoft.com/product.php?pid=0030040001) и Structured Storage Library (http://plasmatech.com/storage.htm).

Всего записей: 142 | Зарегистр. 31-05-2004 | Отправлено: 07:07 28-07-2005
2Polkan



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди, дайте ссылку на какую-нить огромную базу данных по компонентам... Например, мне нужны все свойства Memo и их описание... Чтобы были ответы вопросы типа "что делает Memo1.Lines.Self и как его использовать"...
 
Добавлено:
Вопрос вдогонку:  
 
Имеется две Мемы. Одна со всякой фигней типа  
123 asdasdasdasd
234 asdghgfrerdb
543 sdfdsfgdfhfghf
 
Вопрос: как мне перенести первые Х символов с каждой строки в Мему2, чтобы стало так: (если Х=3)
 
123
234
543

Всего записей: 435 | Зарегистр. 20-11-2004 | Отправлено: 22:11 29-07-2005
Sleepwalker



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2Polkan
что касается стандартных компонент, то их свойства полностью расписаны в прилагаемой документации. По сторонним компонентам обычно хелп идет вместе с ними либо по имени ищи в поисковиках. Много на сорсфордже и на торри.нет
 
второй вопрос.
for i=0 to memo1.lines.count-1 do
  memo2.lines.add(copy(memo1.lines[i],1,X))
 
 
 
Добавлено:
2Polkan
кстати, откуда ты взял такую формулировку по self? self на то и есть, что без всяких префиксов

Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 23:48 29-07-2005
moonrise



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
всех приветствую.
 
как при помощи TtcpClient проверить на анонимность список фтп?

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo.Clear;
  Memo1.Clear;
  for I := 0 to ip_list.Lines.Count - 1 do    // Iterate
  begin
    with TTcpClient.Create(self) do
    begin
      Name := 'TCP_' + IntToStr(I);
      BlockMode := bmNonBlocking;
      Tag := 0;
      RemoteHost := ip_list.Lines[i];
      RemotePort := '21';
      OnReceive := TCP.OnReceive;
      Active := True;
      Sendln('user anonymous');
      while Tag = 0 do Receiveln();
    end
  end;    // for
end;
....
procedure TForm1.TcpReceive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
var
S: Integer;
begin
    Memo.Lines.Add((Sender as TTcpClient).RemoteHost + '  ' + copy(Buf,1,DataLen-2));
    S := StrToInt(copy(Buf,1,3));
    case S of    //
      220: (Sender as TTcpClient).Tag := 1;
      331:   begin
                (Sender as TTcpClient).Sendln('pass FTP_BOT');
                (Sender as TTcpClient).Receiveln();
             end;
      230:   begin
                (Sender as TTcpClient).Disconnect;
                (Sender as TTcpClient).Active := False;
                Memo1.Lines.Add((Sender as TTcpClient).RemoteHost +' : Anonymous')
             end;
    else
      (Sender as TTcpClient).Disconnect;
      (Sender as TTcpClient).Active := False;
      Memo1.Lines.Add((Sender as TTcpClient).RemoteHost +' : Error')
    end;    // case
    if  length(Buf) > DataLen then   (Sender as TTcpClient).Receiveln()
end;
 
работать не хочет

----------
Истина внимательно выслушивает спорящих... вздыхает и уходит.

Всего записей: 1987 | Зарегистр. 19-09-2001 | Отправлено: 06:51 30-07-2005
Sleepwalker



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а чего конкретно-то не хочет работать? кстати, процедура Tcpreceive управление получает? у меня такое ощущение, что не должна, судя по коду.

Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 09:35 30-07-2005
   

Страницы: 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 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru