Вопрос № 60663: Доброго времени суток. Подскажите пажалуста как из винды вытащить признак зима/лето (т.е. какое сейчас время зимнее или летнее). (Само время не требуется, нужен только признак)....Вопрос № 60678: Люди!!! подскажите пожалуста как программно в екселе вставить диаграмму в тот же лист (а не отдельным листом)...Вопрос № 60725: Здраствуйте Уважаемые эксперты.
Я хочу написать приложение которое будет шифровать текст по RSA алгоримту, нашол описание этого алгоритма: http://webdocs.ru/page/item/_id-376/
Попытался написать программу (см. приложение) но чтото неполучаетс...Вопрос № 60744: Уважаемые программисты помогите с решением проблемы: где мне найти модуль для Delphi iLCDMatrix.dcu? Заранее юлпгодарю за информацию....
Вопрос № 60.663
Доброго времени суток. Подскажите пажалуста как из винды вытащить признак зима/лето (т.е. какое сейчас время зимнее или летнее). (Само время не требуется, нужен только признак).
Отправлен: 30.10.2006, 11:39
Вопрос задал: VNos (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Gh0stik
Здравствуйте, VNos!
Почти все данные храняться в рееестре, только нужно уметь его ЛОПАТИТЬ :о))
Вобщем то что Вам необходимо храниться в таком разделе реестра: HKLMSYSTEMCurrentControlSetControlTimeZoneInformation
в строковом ключе StandardName.
И получить Вы его можете примерно так:
procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
s:string;
begin
reg:=TRegistry.Create;
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKeyReadOnly('SYSTEMCurrentControlSetControlTimeZoneInformation');
s:=ReadString('StandardName');
s:=copy(s,pos('(',s)+1,length(s)-pos('(',s)-1);
ShowMessage(s);
Free;
end;
end;
Только не забудте uses Registry;
Удачи!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Практикант)
Ответ отправлен: 30.10.2006, 12:02
Отвечает: Mexes
Здравствуйте, VNos!
Можно и так:
uses Windows;
var tz_id:integer;
tzi:TTimeZoneInformation;
begin
tz_id:=GetTimeZoneInformation(tzi);
case tz_id of
TIME_ZONE_ID_STANDARD:MessageBox(0,'Зимнее время','Информация',MB_OK);
TIME_ZONE_ID_DAYLIGHT:MessageBox(0,'Летнее время','Информация',MB_OK);
TIME_ZONE_ID_UNKNOWN: MessageBox(0,'Неизвестно','Информация',MB_OK);
end;
end.
Ответ отправил: Mexes (статус: 5-ый класс)
Ответ отправлен: 30.10.2006, 12:49
Вопрос № 60.678
Люди!!! подскажите пожалуста как программно в екселе вставить диаграмму в тот же лист (а не отдельным листом)
Отправлен: 30.10.2006, 14:02
Вопрос задал: SAN (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PaVeL_Ekt
Здравствуйте, SAN!
С диаграммами я не работал, но могу посоветовать попробовать вставить EXCELApplication и через свойство WorkSheets.Select попробовать выбрать нужный лист, а потом вставить диаграмму !!!
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 5-ый класс)
Ответ отправлен: 30.10.2006, 14:37
Отвечает: Gladiator
Здравствуйте, SAN!
К примеру так:
Excel,WorkBook,WorkSheet1,Chart1:OleVariant;
XRange,YRange: Variant;
......
Excel:=CreateOleObject('Excel.Application');
// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
Excel.Application.EnableEvents := false;
if Not FileExists('data.xls') then
begin
Workbook :=Excel.WorkBooks.Add;
WorkBook.SaveAs(ExtractFilePath(Application.ExeName)+'data.xls');
WorkBook.Close;
end;
WorkBook:=Excel.WorkBooks.Open(ExtractFilePath(Application.ExeName)+'data.xls');
WorkSheet1:=WorkBook.WorkSheets[1];
WorkSheet1.Name:='Страница данных';
WorkSheet1.Activate;
if Worksheet1.ChartObjects.Count>0 then Worksheet1.ChartObjects.Delete;
Chart1:=Worksheet1.ChartObjects.Add(1, 1, 400, 250);
Ответ отправил: Gladiator (статус: 5-ый класс)
Ответ отправлен: 30.10.2006, 15:00
Вопрос № 60.725
Здраствуйте Уважаемые эксперты.
Я хочу написать приложение которое будет шифровать текст по RSA алгоримту, нашол описание этого алгоритма: http://webdocs.ru/page/item/_id-376/
Попытался написать программу (см. приложение) но чтото неполучается расшифровать зашифрованный текст :(
Помогите пожалуйста разобратся.
Заранее Спасибо.
Приложение:
Отправлен: 30.10.2006, 21:08
Вопрос задал: Станислав (статус: 1-ый класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PaVeL_Ekt
Здравствуйте, Станислав!
Для того, чтобы воспользоваться данным методом кодирования тебе придется сделать таблицу соответствия т.к. при большом значении символа кодирование происходит некорректно.
Сам проверял, и пыталься баг убрать, но не получилось !!!
а по сему надо делать как в примере написано.
А=1, B=2, C=3 и т. д.
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 5-ый класс)
Ответ отправлен: 31.10.2006, 12:05
Отвечает: DeVampir
Здравствуйте, Станислав!
Пусть код первого символа в Memo1 при нажатии на кнопку будет 100, при возведении в 5 степень, получим 10000000000, а вместимость longint всего 2147483647!!! (я уж молчу, что p у вас вообще byte) Но даже если вы будете использовать более вместимый тип, вам его хватит не на долго - длина ключа для нормального шифрования должна быть очень большой. По этому обычно использут свой тип, реализуемый с помощью "длинной" арифметики... В общем, я бы предложил Вам еще почитать про реализацию алгоритма.
--------- Нам будет трудно - это терпимо! (с) М. Горшенев
Ответ отправил: DeVampir (статус: 3-ий класс)
Ответ отправлен: 01.11.2006, 03:48 Оценка за ответ: 4
Вопрос № 60.744
Уважаемые программисты помогите с решением проблемы: где мне найти модуль для Delphi iLCDMatrix.dcu? Заранее юлпгодарю за информацию.
http://www.componentsource.com/products/517021/17832/summary.html
Но что-то цены там !!!
http://www.google.com/search?ie=windows-1251&q=iLCDMatrix
это поиск в гоогле !!!
верстайте ссылки, может и найдете,
а вообщето можно попробовать
http://www.yandex.ru/yandsearch?text=delphi+component&stype=www&rstr_manually=false
только это все нужно собственноручно искать, на каждой ссылке !!!
УДАЧИ !!!
--------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL
Ответ отправил: PaVeL_Ekt (статус: 5-ый класс)
Ответ отправлен: 31.10.2006, 12:15
