/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 496
от 08.06.2006, 03:05

Во прос № 44.947

Добрый день! У меня два вопроса, они довольно похожи. Еть компьютеры соединеные в сеть. Сижу на одном компьютере, как можно на другом компьютери, не встовая с место, программно, запустить: - Службу - Программу Заранее всем спасибо за ответ.

Отправлен: 02.06.2006, 08:34 Вопрос задал: AllexZ (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Решетник Д Здравствуйте, AllexZ! На мой взгляд, легче всего сделать клинт-серверную программу управления (а-ля RAdmin). Суть состоит вот в чем: нужно написать 2 программы клиента и сервера. Сервер будет стоять у Вас на компютере, а клиент соответственно на других машинах. каждая из программ будет знать определенный набор команд (сервер знать как посылать эту команду по сети, а клиент соответственно как получать и обрабатывать). Для реализации этого программно особых усилий не требуется. нужно лишь взять любую документацию по сокетам, которой в сети валом. также я видел много примеров в Делфиворлде (delphiworld.narod.ru) ключевые слова: socket, bind, listen, recv. Удачи --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 8-ой класс) Ответ отправлен: 02.06.2006, 10:55 Оценка за ответ: 5 Комментарий оценки: Большое спасибо. Это то что нужно. Раньше на работал с сокетами, но надо-же когдато начинать.

Отвечает: Loki® Здравствуйте, AllexZ! Очень просто: установить любую, на выбор, программу удалённого администрирования (благо их великое множество). Например Remote Administrator или DameWare mini remote control (последний правда довольно ресурсоёмкий). Ещё Microsoft remote desktop можно попробовать.

Ответ отправил: Loki® (статус: 2-ой класс) Ответ отправлен: 02.06.2006, 18:29

Вопрос № 44.951

Добрый день, уважаемые! У меня скорее предложение, чем вопрос. Я занимаюсь программированием около полугода, в свободное время. Вот сваял первое более-менее серьезное приложение, а так как у меня нет знакомых программистов и посоветоваться не с кем, я бы хотел желающим выслать полный текст, чтобы вы подсказали, подправили, посоветовали. Единственная проблема - используется AlphaSkin. Если что ,пишите savenkovadim@yandex.ru

Отправлен: 02.06.2006, 09:19 Вопрос задал: Савенко Вадим Иванович (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Lexus Здравствуйте, Савенко Вадим Иванович! Напиши мне в личную о чем эта программа и где AlphaSkin скачать (сколько весит). --------- "Все что вы скажете будет использовано против вас в суде..." (УК РФ)

Ответ отправил: Lexus (статус: 3-ий класс) Ответ отправлен: 02.06.2006, 09:50

Отвечает: Решетник Д Здравствуйте, Савенко Вадим Иванович! Напиши сюда описание программы. Пиши в личку --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 8-ой класс) Ответ отправлен: 02.06.2006, 10:58

Отвечает: Gh0stik Здравствуйте, Савенко Вадим Иванович! Пишите в личную почту чем сможем поможем. Только не забудьте дать ссылочку на AlphaSkin (а то я в дебрях своего компа потерял этот компонент)!!! Или можете отправить на адрес "ghostik_lab@mail.ru" --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаються события на земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: 10-ый класс) Ответ отправлен: 02.06.2006, 11:11

Вопрос № 44.955

Здравствуйте,уважаемые эксперты! Подскажите мне пожайлуста, как можно производить поискзамену како-го либо текста в текстовой строке? я имею в ввиду s:String;

Отправлен: 02.06.2006, 09:58 Вопрос задал: Ustas (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, Ustas! При помощи функций AnsiReplaceStr и AnsiReplaceText

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 3-ий класс) Ответ отправлен: 02.06.2006, 10:20 Оценка за ответ: 4

Отвечает: Gh0stik Здравствуйте, Ustas! Что бы не изобретать велосипед советую Вам посмотреть такие ссылочки: http://www.delphiworld.narod.ru/base/memo_search_and_repolace.html http://www.delphiworld.narod.ru/base/memo_search_replace.html И вообще советую Вам посещать эту страничку "www.delphiworld.narod.ru" очень много полезных советов и изысканий. Удачи!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаються события на земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: 10-ый класс) Ответ отправлен: 02.06.2006, 10:32 Оценка за ответ: 4

Отвечает: Kazakh Здравствуйте, Ustas! Также посмотрите модуль StrUtils.pas - много чего интересного (в Uses пишите StrUtils). Аналогично есть DateUtils для работы с датами З.Ы.: AnsiReplaceStr и AnsiReplaceText находятся в StrUtils. --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 9-ый класс) Ответ отправлен: 02.06.2006, 10:34 Оценка за ответ: 5

Отвечает: Маренич Владимир Здравствуйте, Ustas! Для поиска обычно использую стандартную функцию Pos(<искомый текст>, <строка, в которой ищем>), которая возвращает индекс вхождения подстроки в строку. Если нужно искать не зависимо от регистра, то преобразую подстроку и исходную строку с помощью AnsiUpperCase. Например, s0:='Абра-Кадабра.'; //исходная строка s1:='кадабра'; //искомый текст i:=Pos(AnsiUpperCase(s1), s0); В результате получим i=6 Дальше делаем, что хотим... Например, s:=Copy(s0,1,i-1); //вырезаем всё, что до искомого текста s:=s+Copy(s0,i+Length(s1),Length(s0)-i-Length(s1)+1); //вырезаем всё, что после Получим s='Абра-.'

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 06.06.2006, 15:36 Оценка за ответ: 5

Вопрос № 44.964

Подскажите как работать с событиями в делфи! Примеры, линки.

Отправлен: 02.06.2006, 11:33 Вопрос задал: Negruzzi Cristian (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, Negruzzi Cristian! Не совсем понятно,ч то именно вам надо, но вот: http://www.computerbooks.ru/books/Programming/Book-Delphi-for-professionals/Glava1/Index4.html http://bspu.secna.ru/~ic/Works/DELPHIBOOK/mn_event.htm http://www.sai.msu.su:7000/programming/32less/les19.shtml Счастливо! --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 6-ой класс) Ответ отправлен: 02.06.2006, 11:53 Оценка за ответ: 5

Отвечает: Решетник Д Здравствуйте, Negruzzi Cristian! Большая часть событий Делфи являются переопределенными сообщениями ОС (Windows Messages). Для того, чтобы создать обработчик сообщения определенным окном, нужно добавить метод класса и код сообщения, обрабатываемого этим методом. procedure wmtimer(var msg: TMessage); message WM_TIMER; procedure TForm1.wmtimer(var msg: TMessage); begin //обработка сообщения end; полный список сообщенией можно просмотреть в Win32 SDK --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 8-ой класс) Ответ отправлен: 02.06.2006, 12:27

Вопрос № 44.988

Подскажите плз. как в SpinEdit'е можно вывести Float тип данных. И инкрементировать и декрементировать его тоже Float'ом.

Отправлен: 02.06.2006, 15:24 Вопрос задал: SUPcOZA (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Решетник Д Здравствуйте, SUPcOZA! Думаю, что только руками.. нужно создать компонент наследник TSpinEdit'a. Или скомпоновать TEdit, TScrollBarна форме и обрабатывать ввод в эдит. --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 8-ой класс) Ответ отправлен: 02.06.2006, 16:09

Отвечает: Ерёмин Андрей Здравствуйте, SUPcOZA! Нет, всё можно сделать гораздо проще. Переписывать TSpinEdit не нужно. Делаем следующим образом: помещаем на форму TEdit и рядом с ним TUpDown (со страницы Win32). Далее пишем обработчик для TUpDown: procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType); begin if Button = btNext then Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)+0.1); if Button = btPrev then Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)-0.1); end; Вот и всё :-) А для пущей надёжности можно запретить ввод в TEdit символов кроме цифр, запятой, точки и минуса. И точку и запятую я беру потому, что в зависимости от региональных настроек разделителем целой и дробной части может быть как точка, так и запятая. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); Const Chrs: String = '-0123456789,.'; begin if Pos(Key,Chrs) <= 0 then Key:=#0; end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 02.06.2006, 16:27 Оценка за ответ: 4 Комментарий оценки: Спасибо, но я думал что есть способ еще проще :)

Вопрос № 44.991

А вот еще вопрос: На форме есть множество Label'ов (до 10 штук), как пребрать их все программно и изменить в них допустим текст?

Отправлен: 02.06.2006, 15:47 Вопрос задал: SUPcOZA (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Решетник Д Здравствуйте, SUPcOZA! в Делфи есть функция findcomponent, которая возвращает компонент по имени for i := 1 to 10 do (findcomponent('label'+inttostr(i)) as TLabel).Caption := 'lalala'; --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 8-ой класс) Ответ отправлен: 02.06.2006, 16:07

Отвечает: Zubex Здравствуйте, SUPcOZA! Есть функция findcomponent (см. предыдущий ответ), однако ее можно использовать, если лабелы называть однотипно: label1, label2 и т.д... Можно еще использовать следующую конструкцию: for I:=0 to ComponentCount-1 do if Components[i] is TLabel then TLabel(Components[i]).Caption:='Новое название'; Удачи!!! --------- Если не знаешь что сказать - лучше промолчи...

Ответ отправил: Zubex (статус: 6-ой класс) Ответ отправлен: 02.06.2006, 16:30

Отвечает: Маренич Владимир Здравствуйте, SUPcOZA! Если компоненты не именуются 'Label...' или не известно их точное кол-во, тогда лучще всего перебрать все компоненты в цикле и выбрать соотв-но TLabel и делать с ними всё что угодно... for i:=0 to ComponentCount-1 do if Components[i] is TLabel then begin //Делаем с TLabel, что хотим: (Components[i] as TLabel).Caption:='метка'+IntToStr(i); end;

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 06.06.2006, 15:49

Вопрос № 45.021

Уважаемые эксперты! Подскажите, пожалуйста, как можно посылать из программы сообщения web-серверу интернета без браузера и как можно делать это же с помощью прокси-серверов без переключения на него всей системы? (не подумайте чего, хочу понять, как работают "кликеры")

Отправлен: 02.06.2006, 19:48 Вопрос задал: Томша Павел (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Bochvarov NikB Здравствуйте, Томша Павел! Отвечаю на первой части вопроса Ответ в основном - через сокетьи (tClientSocket). Я посьилаю тебе мою процедуру, котороя формирует стринг, которой потом посьилается через ClientSocket1.Socket.SendText( OutHTML) к моему веб серверу; Конечно, сокетьи надо сперва сделать Connect и получит потверждение. Тете надо читать о сокетах, о потом о ХТТП протокол. Будет тебе легче, если с снифром посмортриш примерние пакетьи HTTP - я ползую CommView. (тебе будет легче, ползуя tWebBrowser, но ето браузер) Приложение: {}procedure TForm_ComPort.GetText; var xPar : string; xHeader : string; begin if RadioButton1.Checked then begin xPar := 'Par1='+EditPar1.Text+'&Par2='+EditPar2.Text; end else begin if RadioButton2.Checked then begin xPar := ComboBoxPar.Text; end else begin xPar := ''; end; end; // xPar := Str_ToHTML( xPar); xHeader := 'HTTP/1.1'+cCrLf+ 'Host: '+sURL+cCrLf+ 'Connection: Keep-Alive'+cCrLf; if RadioGroupGetPost.ItemIndex=0 then begin OutHTML := 'GET '+sFile; if xPar<>'' then begin OutHTML := OutHTML+'?'+Str_ToHTML( xPar)+cCrLf; end; OutHTML := OutHTML+' '+xHeader; if EditSession.Text<>'' then begin OutHTML := OutHTML + 'Cookie: PHPSESSID='+EditSession.Text+cCrLf; end; end else begin if RadioGroupGetPost.ItemIndex=1 then begin OutHTML := 'POST '+sFile+' '+xHeader+ 'Content-Type: application/x-www-form-urlencoded'+cCrLf+ 'Content-Length: '+IntToStr(length(xPar))+cCrLf; if EditSession.Text<>'' then begin OutHTML := OutHTML+ 'Cookie: PHPSESSID='+EditSession.Text+cCrLf; end; if xPar<>'' then begin OutHTML := OutHTML+ cCrLf+xPar; end; OutHTML := OutHTML+cCrLf; end; end; OutHTML := OutHTML+cCrLf; end;

Ответ отправил: Bochvarov NikB (статус: 9-ый класс) Ответ отправлен: 02.06.2006, 20:22 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.34 от 01.06.2006