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

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

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


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


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

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

Статистика

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

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


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 313
от 03.12.2005, 16:00

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

Вопрос № 30317: Добрый день, уважаемые эксперты. Как с помощью Delphi7 отправить sms сообщение на номера мобильных операторов Украины? +38067... +38097... +38096... +38039... +38063... +38068... +38050... +38066......
Вопрос № 30332: Уважаемые эксперты, подскажите пожалуйста как написать (покомпактней) на Delphi нечто вроде кодогенератора - который формирует программу выводящую отчеты по базе данных. У меня в данном случае проблема со считыванием файла, и также из базы данных...
Вопрос № 30343: Помогите составить программу для перевода числа шестнадцатиричной в десятичную систему исчисления, или киньте ссылку на сайт! Спасибо!...

Вопрос № 30.317
Добрый день, уважаемые эксперты.
Как с помощью Delphi7 отправить sms сообщение на номера мобильных операторов Украины?
+38067...
+38097...
+38096...
+38039...
+38063...
+38068...
+38050...
+38066...
Отправлен: 27.11.2005, 15:54
Вопрос задал: Vitava (статус: 4-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, Vitava!
Вам в другую рассылку. Дельфи отправкой смс не занимается.
Если хотите вообще работать с сетью, то ищи те литературу по компонентам Indy.
Ответ отправил: sir henry (статус: Академик)
Отправлен: 27.11.2005, 20:16
Отвечает: Schmak
Здравствуйте, Vitava!
Могу предложить 2 способа, хотя неуверен. что они будут работать.
1) Многие операторы (у нас в области ВСЕ) предоставляют владельцу симки почтовый ящик вида +xxxxxxxxxxx@sms.[оператор].ru. Если Вы точно знаете что такая услуга есть, то для того чтобы отправить SMS надо просто отправить Mail на этот ящик. Этот способ не всегда работает, так не у всех есть такой ящик.

2)Второй способ более трудоёмкий, но работает чаще. На сайтах почти всех операторов есть поля для бесплатной отправки SMS. Необходимо имитировать отправку SMS путём либо закачки страницы, либо непосредственного выполнения кода страницы.
---------
Не всё то Windows, что висит!
Ответ отправил: Schmak (статус: Студент)
Отправлен: 29.11.2005, 05:38

Вопрос № 30.332
Уважаемые эксперты, подскажите пожалуйста как написать (покомпактней) на Delphi нечто вроде кодогенератора - который формирует программу выводящую отчеты по базе данных.
У меня в данном случае проблема со считыванием файла, и также из базы данных (она написано в Fox Pro 9) - я просто с этим не сталкивался еще ни разу.
Заранее спасибо, ...Если есть ссылки на примеры - буду также благодарен, ибо понимаю что вопрос очень "огромен", но ведь надо же с чего-то учиться.
Отправлен: 27.11.2005, 21:17
Вопрос задал: Andrew (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: sir henry
Здравствуйте, Andrew!
Немного не понял. Вам нужен не отчет, а генератор отчета?
А зачем?
Чем Вас стандартные не устраивают? Например RAVE, FastReport, QReport?
Ответ отправил: sir henry (статус: Академик)
Отправлен: 28.11.2005, 07:59
Отвечает: Vbhjndjhtw
Здравствуйте, Andrew!
А нельзя ли поконкретней задать вопрос?
Я так понимаю Вы хотите считывать данные из базы данных и делать отчёт?
Что за файл с которым у Вас проблемы?
---------
Бороться и искать, найти и перепрятать!
Ответ отправил: Vbhjndjhtw (статус: 4-ый класс)
Отправлен: 29.11.2005, 07:42

Вопрос № 30.343
Помогите составить программу для перевода числа шестнадцатиричной в десятичную систему исчисления, или киньте ссылку на сайт! Спасибо!
Отправлен: 28.11.2005, 00:09
Вопрос задал: Мордовин Илья (статус: 1-ый класс)
Всего ответов: 9
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Vitava
Здравствуйте, Мордовин Илья!
CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);
VAR str : String;

Int,
i : integer;
BEGIN

READLN(str);
Int := 0;
FOR i := 1 TO Length(str) DO
IF str[i] < 'A' THEN Int := Int * 16 + ORD(str[i]) - 48
ELSE Int := Int * 16 + HEX[str[i]];
WRITELN(Int);
READLN;
END.
Ответ отправил: Vitava (статус: 4-ый класс)
Отправлен: 28.11.2005, 00:14
Отвечает: Werewolf
Здравствуйте, Мордовин Илья!
Если шестнадцатиричное число вводить в Edit, например, том можно так:
i:=StrToInt('$'+Edit1.Text);
Ответ отправил: Werewolf (статус: Студент)
Отправлен: 28.11.2005, 00:16
Отвечает: REFERI
Здравствуйте, Мордовин Илья!
Как 2 пальца!
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := IntToStr(StrToInt('$4efe41')); //5176897
end;
Удачи в кодинге!

---------
Не судите, да не судимы будете...
Ответ отправил: REFERI (статус: Студент)
Отправлен: 28.11.2005, 00:21
Отвечает: Маренич Владимир
Здравствуйте, Мордовин Илья!
Может это Вам поможет?

Приложение:

Ответ отправил: Маренич Владимир (статус: 7-ой класс)
Отправлен: 28.11.2005, 00:56
Отвечает: Каськов Артем Игоревич
Здравствуйте, Мордовин Илья!
Делается это проще простого, все шестнадцатиричные числа в Delphi выгледят $число, а переводить не требуется вывод будет в десятичной(допустим функции)
Ответ отправил: Каськов Артем Игоревич (статус: 4-ый класс)
Отправлен: 28.11.2005, 04:00
Отвечает: Каськов Артем Игоревич
Здравствуйте, Мордовин Илья!
Делается это проще простого, все шестнадцатиричные числа в Delphi выгледят $число, а переводить не требуется вывод будет в десятичной
Ответ отправил: Каськов Артем Игоревич (статус: 4-ый класс)
Отправлен: 28.11.2005, 04:01
Отвечает: Schmak
Здравствуйте, Мордовин Илья!
Вот пример программы. считывающей числа в 16-ричной системе и выводящая, соответствующие им 10-чныеЖ
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
Hex:string;
dec:integer;
begin
readln(Hex);
Dec:=strtoint('$'+Hex); //Собственнно перевод числа
writeln(Dec);
readln;
end.

---------
Не всё то Windows, что висит!
Ответ отправил: Schmak (статус: Студент)
Отправлен: 28.11.2005, 16:01
Отвечает: Ataman N. N.
Здравствуйте, Мордовин Илья!
function HexToDec(Hex: String): Integer;
var i: Integer;
Buf: Integr;
L, Chislo: Integer;
begin
L := Length(Hex);
Buf := 0;
for i := 1 to L do
begin
if Hex[i] = 'A' then
Chislo := 10
else if Hex[i] = 'B' then
Chislo := 11
else if Hex[i] = 'C' then
Chislo := 12
else if Hex[i] = 'D' then
Chislo := 13
else if Hex[i] = 'E' then
Chislo := 14
else if Hex[i] = 'F' then
Chislo := 15
else Chislo := StrToInt(Hex[i]);
Buf := Buf + Chislo * Pow(16, L - i);
end;
Result := Buf;
end;
Вроде все верно. Писал по памяти, не судети плохо.
Ответ отправил: Ataman N. N. (статус: 4-ый класс)
Отправлен: 28.11.2005, 18:22
Отвечает: Vbhjndjhtw
Здравствуйте, Мордовин Илья!
Могу предложить исходник своего модуля для работы с двоичными и десятичными числами. Если нужны и шестнадцатиричные, и восьмиричные - процесс их перевода очень похож. Если нужно, обращайся, попробую написать и для них.

Приложение:

---------
Бороться и искать, найти и перепрятать!

Ответ отправил: Vbhjndjhtw (статус: 4-ый класс)
Отправлен: 29.11.2005, 07:32

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

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

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

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


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

© 2001-2005, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100 hotlog_js="1.0"; hotlog_r=""+Math.random()+"&s=314124&im=101&r="+escape(document.referrer)+"&pg="+ escape(window.location.href); document.cookie="hotlog=1; path=/"; hotlog_r+="&c="+(document.cookie?"Y":"N"); hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2"; hotlog_r+="&wh="+screen.width+'x'+screen.height+"&px="+ (((navigator.appName.substring(0,3)=="Mic"))? screen.colorDepth:screen.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; document.write("HotLog")
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора 		Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Архив рассылки 		Отписаться
Вспомнить пароль
В избранное