Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Май 2006   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 469
от 11.05.2006, 00:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 325, Экспертов: 57
В номере:Вопросов: 7, Ответов: 13

Вопрос № 42132: Здравстуйте! У меня возник вопрос. Мне нуж...
Вопрос № 42146: Добрый вечер! Будьте добры, помогите вот в каком вопросе. В моей программе размер файлов выводится в формате "123 456" для удобочитаемости. А как теперь получить Integer из этой строки? То есть , как убрать пробелы внутри строк...
Вопрос № 42158: Здраствуйте эксперты! Хочу пресоединиться к вам,но незнаю как?!Подскажите! Мои вопросы такие: 1)Как подавать на печать текст не горизонтально,а вертикально? Или как на канвасе напечатать текст вертикально?! 2)Разришение монитора 96dpi(точ...
Вопрос № 42172: Здравствуйте зксперты. Подскажите пожалуйста «Как с помощью скриптов можно отформатировать CD диск не запрашивая у операционки разрешения или путь» т.е что бы программа сама форматировала CD-RW....
Вопрос № 42185: Здраствуйте ув. эксперты Как отключить экран (росто чёрный экран) или мышь с клавой???...
Вопрос № 42196: Здравствуйте, уважаемые эксперты! Как выделить строку в Мемо, на которую наведен курсор?...
Вопрос № 42197: Здравствуйте! Как реализовать алгоритм RSA на делфи?...

Вопрос № 42.132
Здравстуйте! У меня возник вопрос.
Мне нужно захватить иходящий от меня пакет, и его же отправить с тем же содержанием и заголовком.
Заренее спасибо всем за ответы.
Отправлен: 05.05.2006, 12:54
Вопрос задал: Centuri0n (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Решетник Д
Здравствуйте, Centuri0n!
Если правильно понял, то, наверное, нужно написать прокси и работать через него. а он будет в свою очередь делать всю нужную работу по изменению.
(исходящий пакет)-->(прокси-сервер + обработка)-->(передачу в нужное место)
ИМХО Только это более или менее реально для 1-нескольких портов. при этом нужно каждый пакет сканировать и узнавать его пункт назначения
---------
Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 5-ый класс)
Ответ отправлен: 05.05.2006, 13:29

Вопрос № 42.146
Добрый вечер! Будьте добры, помогите вот в каком вопросе.
В моей программе размер файлов выводится в формате
"123 456" для удобочитаемости. А как теперь получить Integer из
этой строки? То есть , как убрать пробелы внутри строки?
Заранее благодарю.
Отправлен: 05.05.2006, 16:06
Вопрос задал: Савенко Вадим Иванович (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 6)
Отвечает: Ерёмин Андрей
Здравствуйте, Савенко Вадим Иванович!
Например таким способом:

uses StrUtils;
...
var num: string; n: integer;
...
num:='123 456';
n:=strtoint(ansireplacestr(num,' ',''));


---------
Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на DELPHI: Всё для программиста.
ICQ: 286837644
----
Ответ отправлен: 05.05.2006, 16:44
Оценка за ответ: 1
Отвечает: Николай Б.
Здравствуйте, Савенко Вадим Иванович!
код в приложении

Приложение:

Ответ отправил: Николай Б. (статус: 5-ый класс)
Ответ отправлен: 05.05.2006, 17:07
Оценка за ответ: 5
Отвечает: Lexus
Здравствуйте, Савенко Вадим Иванович!

//Пусть у вас нужная строка вводится например в Edit1
//По нажатию кнопки Button1 выполнится следущая процедура
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,size:integer;
begin
s:=edit1.Text;//присваеваем текст из Edit1 в переменную s типа string
i:=pos(' ',s);//ищем пробел в тексте из переменной s и записываем номер этого пробела в i
while i<>0 do //...если мы его находим, то ...
begin
delete(s,i,1);//...то удалим его и...
i:=pos(' ',s);//еще ищем
end;
label1.Caption:=s;
size:=strtointdef(s,0); //...и запишем в переменную size типа integer
end;
Ответ отправил: Lexus (статус: 2-ой класс)
Ответ отправлен: 05.05.2006, 19:17
Отвечает: Denisss

Здравствуйте, Савенко Вадим Иванович!

Вот моя функция для преобразования подобных строк. Кроме того, ее удобно использовать для таких строк: 123.456, 123-456, 123'456, 123,456 и пр.

function dsStrToInt(const aStr: string): Integer;
var
  i, sL: Integer;
begin
  sL:= Length(aStr);
  Result:= 0;
  for i:= 1 to sL do
    if (aStr[i] in ['0'..'9']) then
      Result:= (Result * 10) + (ord(aStr[i]) - ord('0'));
end;

/// ...

// Пример использования:
var
  myInt: Integer;
/// ...
  myInt:= dsStrToInt('123 456');

Удачи!
Ответ отправил: Denisss (статус: Специалист)
Ответ отправлен: 05.05.2006, 22:59

Вопрос № 42.158
Здраствуйте эксперты! Хочу пресоединиться к вам,но незнаю как?!Подскажите!
Мои вопросы такие:
1)Как подавать на печать текст не горизонтально,а вертикально? Или как на канвасе напечатать текст вертикально?!
2)Разришение монитора 96dpi(точек на дюйм),на принтере 300dpi. Как постичать сколько мне точек надо отступить от верха чтобы напечатать на 18мм от верха листа?!
Отправлен: 05.05.2006, 17:30
Вопрос задал: chikanok (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Jeka911
Здравствуйте, chikanok!

1) Если боком, то наверно проще будет напечатать в какой-нибудь канвас, а потом его вывести повернутым на страницу.
2) Если 300dpi, то отступаем на 300(dpi)*18(мм)/25.4 ..(дюймы в мм).
---------
Шахтер - чемпион!!!
Ответ отправил: Jeka911 (статус: 2-ой класс)
Ответ отправлен: 05.05.2006, 18:15

Вопрос № 42.172
Здравствуйте зксперты. Подскажите пожалуйста «Как с помощью скриптов можно отформатировать CD диск не запрашивая у операционки разрешения или путь»
т.е что бы программа сама форматировала CD-RW.
Отправлен: 05.05.2006, 19:59
Вопрос задал: Ram (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Решетник Д
Здравствуйте, Ram!
?скриптов?ну максимум, думаю, в ХР.
А вообще лучше попробовать установить ASPI SDK
---------
Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 5-ый класс)
Ответ отправлен: 05.05.2006, 20:44
Отвечает: Николай Б.
Здравствуйте, Ram!
Каких скриптов: VBS или других?
Delphi даже не позволяет просто записывать на CD стандартными средствами! По-моему, должны быть сторонние компоненты для записи/чистки CD-дисков. Не уверен.
Удачи!
Ответ отправил: Николай Б. (статус: 5-ый класс)
Ответ отправлен: 06.05.2006, 05:52

Вопрос № 42.185
Здраствуйте ув. эксперты
Как отключить экран (росто чёрный экран) или мышь с клавой???
Отправлен: 05.05.2006, 21:11
Вопрос задал: $erBep (статус: 1-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Ерёмин Андрей
Здравствуйте, ErBep!
Вот пример с отключением клавиатуры и мыши:

{ Отключить клавиатуру }
winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show);
{ Отключить мышь }
winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show);
{ Включить }
Asm
in al,21h
mov al,0
out 21h,al
end;


Только пользуйтесь этим осторожно.
---------
Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор)
Россия, Тула
WWW: Программирование на DELPHI: Всё для программиста.
ICQ: 286837644
----
Ответ отправлен: 05.05.2006, 21:23
Отвечает: Решетник Д
Здравствуйте, ErBep!

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); - отключить
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER,-1); - включить.

Клевый вариант - функция BlockInput. но она не объявлена в Делфи.
procedure BlockInput(state: boolean); external 'user32.dll' name 'blockinput';

P.S. только вот не помню, как объявляются в Делфях статические импортируемые процедуры. Но в целом - оно.
И еще. процедура блокирует клаву и мышь. но при нажатии 3-х заветных кнопок блок снимается.
можно попробовать через showcursor..
---------
Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 5-ый класс)
Ответ отправлен: 05.05.2006, 21:43
Оценка за ответ: 5

Вопрос № 42.196
Здравствуйте, уважаемые эксперты!
Как выделить строку в Мемо, на которую наведен курсор?
Отправлен: 05.05.2006, 22:44
Вопрос задал: Mo-skin (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Рубан Николай Николаевич
Здравствуйте, Mo-skin!

Посмотрите приложение, только один минус выделенный текст постоянно "моргает" как избавиться от этого эффекта незнаю, если есть по этому поводу какието соображения просьба сообщите:

Приложение:

---------
Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 5-ый класс)
Ответ отправлен: 06.05.2006, 11:47

Вопрос № 42.197
Здравствуйте! Как реализовать алгоритм RSA на делфи?
Отправлен: 05.05.2006, 23:02
Вопрос задал: 007Makc (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Проходящий Мимо
Здравствуйте, 007Makc!
Рекомендую воспользоваться набором компонент для шифрации и хеширования DcpCrypt, где реализованы Blowfish, Cast128/256, DES/3DES, Ice/Ice2, IDEA, Mars,
Misty1, RC2/4/5/6, Rijndael, Serpent, Tea, Twofish. Их можно скачать со страницы автора: http://www.cityinthesky.co.uk/files/dcpcrypt.zip
---------
Carpe diem!
Ответ отправил: Проходящий Мимо (статус: 3-ий класс)
Ответ отправлен: 06.05.2006, 08:48
Отвечает: AnD1
Здравствуйте, 007Makc!
см пирложение.
в KeyEdit должен быть ключ шифрования

Приложение:

Ответ отправил: AnD1 (статус: 4-ый класс)
Ответ отправлен: 06.05.2006, 10:06

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

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