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

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

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


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


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

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

Статистика

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

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


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

Лучшие эксперты в разделе

Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг » 		Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 0
∙ повысить рейтинг » 		lamed
Статус: Академик
Рейтинг: 0
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1722
Дата выхода:28.09.2017, 14:15
Администратор рассылки:Зенченко Константин Николаевич (Модератор)
Подписчиков / экспертов:27 / 28
Вопросов / ответов:3 / 10

Консультация # 64037: Здраствуйте. Подскажите пожалуйста как послать от сервера клиенту сообщение, Использую TidTcpServer /Ttcpserver и TidTcpclient / Ttcpclient. И если это нереально то стоит ли мне устанавливать Delphi 2005, чтобы воспользоваться компонентом Tsocet или от неё тоже толку не будет?!...
Консультация # 56566: Уважаемые эксперты! Опять вопрос. Пользователь вводит число с клавиатуры. Если вводит через точку(например 1.5 вместо 1,5), то компилятор выдает econverterror. Как обойти эту ошибку? Или можно как-то "переделать" его в "1,5"? И еще если отслеживаю ошибку, то как остановить приложение в этом месте. Ну, чтобы юзер вновь попытался....
Консультация # 56123: Уважаемые,эксперты. Помогите решить проблему.Есть дерево папок:папка "А0",в ней 20 подпапок "Б0"-"Б19",в каждой по 30 подпапок "В0"-"В29", а в каждой по 28 подпапок "Д0"-"Д27" с файлами типа *.uni.Можно ли средствами Delphi (или WinAPI из Delphi) скопировать все файлы типа *....

Консультация # 64037:

Здраствуйте.
Подскажите пожалуйста как послать от сервера клиенту сообщение,
Использую TidTcpServer /Ttcpserver и TidTcpclient / Ttcpclient.
И если это нереально то стоит ли мне устанавливать Delphi 2005, чтобы воспользоваться компонентом Tsocet или от неё тоже толку не будет?!

Дата отправки: 24.11.2006, 18:16
Вопрос задал: chikanok
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Лукьяненко Алексей Валериевич:

Здравствуйте, chikanok!

Если не будете смотреть в справку и каталог Demo\Internet - то толку точно не будет ни от одной из версий

Консультировал: Лукьяненко Алексей Валериевич
Дата отправки: 24.11.2006, 18:21
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Томша Павел:

Здравствуйте, chikanok!
В приложении код отправки строки с помощью TcpClient. Ip, Port и S - строковые переменные, обозначающие Ip адрес, куда вы посылаете сообщение, порт, которому вы посылаете сообщение и строка, которую вы посылаете соответственно

Приложение:

Консультировал: Томша Павел
Дата отправки: 25.11.2006, 10:45
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует PaVeL_Ekt:

Здравствуйте, chikanok!

попробуй вот так

var buf:array [1..10] of byte;
begin
idtcpserver1.Bindings.Items[0].Send(buf,sizeof(buf),flag); //или
idtcpserver1.bindings.Items[0].SendTo(Remote_IP, Remote_PORT, Buf, SizeOf(buf));
end;

Flag=
MSG_OOB - Send out-of-band data .= $1
MSG_DONTROUTE - Do not route the data.=$4

Консультировал: PaVeL_Ekt
Дата отправки: 27.11.2006, 07:17
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 56566:

Уважаемые эксперты! Опять вопрос. Пользователь вводит число с клавиатуры. Если вводит через точку(например 1.5 вместо 1,5), то компилятор выдает econverterror. Как обойти эту ошибку? Или можно как-то "переделать" его в "1,5"? И еще если отслеживаю ошибку, то как остановить приложение в этом месте. Ну, чтобы юзер вновь попытался. Но, лучше бы конечно было сделать так, чтобы независимо от вида точки программа работала. Спасибо.

Дата отправки: 24.09.2006, 20:47
Вопрос задал: Oricardo
Всего ответов: 5
Страница онлайн-консультации »

Консультирует Н.В.:

Здравствуйте, Oricardo!
Компилятор выдаёт ошибку, потому что в качестве разделителя целой и дробной частей в Delphi используется точка.
Можете просто получать строку с числом и заменять в ней точку на запятую (если введена точка) или оставлять строку как есть, есть запятой в ней нет.
Пример удаления запятой в приложении.
Удачи!

Приложение:

Консультировал: Н.В.
Дата отправки: 24.09.2006, 20:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует UnRe@l:

Здравствуйте, Oricardo!
Используй конструкцию try-except для перехвата ИС:

try
Операторы, где возможна ИС;
except
Операторы, которые должны быть выполнены в случае ИС;
end;

Консультировал: UnRe@l
Дата отправки: 25.09.2006, 06:25
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует CjJoker:

Здравствуйте, Oricardo!
Можно так:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = \'.\' then Key:= \',\'
end;

Консультировал: CjJoker
Дата отправки: 25.09.2006, 12:38
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует 3лоумышленник:

Здравствуйте, Oricardo!
В приложении в LabelEdit можно ввести только корректный Float

Приложение:

Консультировал: 3лоумышленник
Дата отправки: 25.09.2006, 19:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Prosto_Blackhowk:

Здравствуйте, Oricardo!
function ReplaceStr(str:string):string; // замена запятой на точку
var
ix:integer;
sx:string;
res:string;
begin
ix:=Pos(\',\',str);
if ix<>0 then str[ix]:=\'.\';
ReplaceStr:=str;
end;

Консультировал: Prosto_Blackhowk
Дата отправки: 27.09.2006, 08:39
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 56123:

Уважаемые,эксперты.
Помогите решить проблему.Есть дерево папок:папка "А0",в ней 20 подпапок "Б0"-"Б19",в каждой по 30 подпапок "В0"-"В29", а в каждой по 28 подпапок "Д0"-"Д27" с файлами типа *.uni.Можно ли средствами Delphi (или WinAPI из Delphi) скопировать все файлы типа *.uni из подпапок "Д0"-"Д27" в одну папку на др.диске?Причем,имена папок написаны какие латиницей,а какие кириллицей,что исключает применение DOS-функций типа XCOPY или COPY.Спасибо.

Дата отправки: 20.09.2006, 20:57
Вопрос задал: Alexela
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Lev:

Здравствуйте, Alexela!

for i := 0 to 20 do
for j := 0 to 30 do
for k := 0 to 28 do begin
SrcDir := Format(\'A0\Б%d\В%d\Д%d\', [i,j,k]);
Далее в цикле определяем имена файлов, пользуясь функциями API, FindFirstFile,
FindNextFile, FindClose, и для каждого найденного файла используем функцию
API CopyFile
end;

Консультировал: Lev
Дата отправки: 20.09.2006, 22:56
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Савенко Вадим Иванович:

Здравствуйте, Alexela!
Используйте SHFileOperation. Примеры использования можете посмотреть здесь:

http://www.megalib.com/books/478/544.htm

Еще можете воспользоваться компонентами JEDI, в частности JvSHFileOperation.

Консультировал: Савенко Вадим Иванович
Дата отправки: 21.09.2006, 06:45
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное