Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111

Открыть новую тему     Написать ответ в эту тему

data man



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Обсуждаем новые возможности и баги
Просьба писать только про Delphi 2009 и выше - по остальным версиям есть соответствующая тема.
Вопросы вареза здесь не обсуждаются !!!
См. также:
Известные важные баги Delphi 2010:

Описание________________________________________________ Исправлено Решение/Альтернатива_____________________
  1. Внимание !  Деинсталляция D2010 нарушает работу D2007 и D2009 !  
При деинсталляции удаляются CC3280MT.DLL и CC3290MT.DLL из Windows\System32,   необходимые для работы D2007 и D2009 соответственно.
Сделайте резервные копии
  2. Code Formatter не работает, если не инсталлирован пакет моделирования.   В нем также присутствует множество багов. Используйте с осторожностью.   1.   JEDI CodeFormat 2.44 SVN Snapshot (~750Kb)   Требуются JCL и JVCL  
2.GExperts with Formatter
  3. Не работает F1 в Object Inspector Update 2   IDEFixPack 2.9 от Andreas Hausladen
(dev. snapshots)
  4. Если IDE начинает падать с сообщением "Out of resources", возможно, что поврежден .res файл проекта. Удалить его, запустить IDE, открыть проект - новый .res файл будет создан автоматически.
  5. В редакторе не работает Class Completion, если в декларируемом классе есть поля с шаблонами. Перед декларированием поля добавить public или private и т.д.
  6. TTrayIcon.ShowBalloonHint() не работает на ОС ниже Vista [QC 77561] Update 2 * Установить Update 2   * ИЛИ почитать о причинах и решении проблемы на форуме embarcadero и в QC   * ИЛИ воспользоваться альтернативой, например Cooltray 4.4.0
  ...      


Всего записей: 1696 | Зарегистр. 13-10-2005 | Отправлено: 14:28 26-08-2009 | Исправлено: data man, 18:27 06-08-2010
yse

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
попробую сп.
вот еще с этого исходника  
процедура Гет,
там в этих строках символы нужно оставлять пустыми или что то вписать p1:='';
p2:='';
в этих строках  
 
procedure get;
begin
p1:='';
p2:='';
  while true do
  begin
 

Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 11:30 06-08-2011
murkovich



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yse
Ладно, добрался до компа с Паскалем и написал эти пять строчек кода, получилось:
Подробнее...

Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 13:33 06-08-2011 | Исправлено: murkovich, 13:35 06-08-2011
yse

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
отлично Спасибо ,помоги разобраться в этих строках которые написано до слова Decode в скобках или дай пример как ты это делал на паскале возможно ли таким методом снова зашифровать но уже свой URL
HOST:=Decode('e©ª—ªe«©›¨©d¦ž¦uŸ¤¦—¨—£s')+b64(p1)+Decode('\©ª¦—¨—£s')+b64(p2)+Decode('\™¥š›s')+inttostr(random(9999))+Decode('\©ª—ªs')+(stat)+Decode('\-™s')+b64(webcam)+Decode('\—¬s')+b64(sm) else
 
 
http://i.pixs.ru/storage/5/7/7/NoNamebmp_3505840_2651577.jpg
 
 
 
 
 

Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 20:07 07-08-2011 | Исправлено: yse, 20:15 07-08-2011
murkovich



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yse
Мой страшно сложный код по существу сводится к

Код:
s2 := '';
for k := 1 to length(s1) do s2 := s2 + chr(ord(s1[k])-54);

При произвольных константах нужно думать и о том, что значение байта может "обернуться" через 0 или 255, но в данном случае на этом можно и сэкономить.

Всего записей: 1551 | Зарегистр. 26-05-2005 | Отправлено: 20:57 07-08-2011
Man_Without_Face



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Перевел проект с Delphi 2007 на Delphi 2009. Программа открывает xml файл и загружает в грид. Открываю xml файл с помощью xml-mappera. Компоненты xmlTransform, xmlTransformProvider, ClientDataSet. В delphi 2009 неправильно отображается русский шрифт:
Чистка салона легковогоавтомобиля (для физических
Я так понимаю это из-за юникодности, но как можно это исправить?

Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 10:14 08-08-2011
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Man_Without_Face
Пример кода бы не помешал. А вообще гляньте какая кодировка задекларирована в вашем xml и какая там реально используется. Если там "encoding="UTF-8"" а реально используется CP1251, то как раз такую абракадабру вы и получите.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 10:38 08-08-2011 | Исправлено: Frodo_Torbins, 10:39 08-08-2011
Man_Without_Face



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Frodo_Torbins
xml: <?xml version="1.0" encoding="Windows-1251" standalone="no"?>
delphi: XML.Encoding := 'Windows-1251';
Кусок кода:
Подробнее...

Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 11:00 08-08-2011
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Man_Without_Face
А что там внутри ExtractFile?

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 11:23 08-08-2011
Man_Without_Face



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Frodo_Torbins

Цитата:
А что там внутри ExtractFile?

Подробнее...
Дело в том что в 2007 все работало на ура. В 2009 заменил функцию  
DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
на  
Zdecompress(InpBuf, sz, OutBuf, OutBytes, 0);
После загрузки файла в грид (распаковываем сжатый файл в xml), можно открыть файл C:\zx.xml.
В нем с русским шрифтом все нормально.

Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 11:55 08-08-2011
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Man_Without_Face
Попробуйте в strl.LoadFromStream(ms2); вторым параметром указать TEncoding.ANSI.
Еще можно SetCodePage использовать. Примеры: http://www.delphikingdom.com/asp/answer.asp?IDAnswer=68134 http://www.delphikingdom.com/asp/answer.asp?IDAnswer=67996

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 12:56 08-08-2011 | Исправлено: Frodo_Torbins, 13:15 08-08-2011
yse

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
а на не мог бы тут под править пару строк под этот декодер  а то не знаю куда курилицу вписать,чтоб шифровал не латину а курилицу

 
 
program Encode;
var f,g:text;i,x,v,r,k:Longint;s:string;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
read(f,s);
x:=length(s);k:=0;
for i:=1 to length(s) do
begin
if  (((ord(s[i])<=ord('z')) and (ord(s[i])>=Ord('a')))
or ((ord(s[i])<=ord('Z')) and (ord(s[i])>=ord('A')))) then inc(k)
else if k<>0 then begin if k<x then x:=k; k:=0; end else continue;
if i =Length(s) then  if k<>0 then begin if k<x then x:=k; k:=0; end;
end;
for i:=1 to length(s) do
begin
if (ord(s[i])<=ord('z')) and (ord(s[i])>=Ord('a')) then begin r:=ord(s[i])-x; if r<ord('a')
then begin v:=ord('z')-ord('a')+1+r;s[i]:=chr(v);Continue;end
else begin s[i]:=chr(r);Continue;end;  end;
if (ord(s[i])<=ord('Z')) and (ord(s[i])>=Ord('A')) then begin r:=ord(s[i])-x; if r<ord('A')
then begin v:=ord('Z')-ord('A')+1+r;s[i]:=chr(v);Continue;end
else begin s[i]:=chr(r);Continue;end; end;
end;
write(g,s);
close(f);
close(g);
end.
 
пробовал так
var f,g: text;А,Б,В,Г,ґ,Д,Е,Є,Ж,З,И,Ї,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ь,Ю,Я,а,б,в,г,д,е,є,ж,з,и,ї,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ь,ю,я:Longint;s:string;
 
 
 
менял  в строках  
 if (ord(s[i])<=ord('z')) and (ord(s[i])>=Ord('a')) then begin r:=ord(s[i])+54; if r<ord('a')
then begin v:=ord('z')-ord('a')+1+r;s[i]:=chr(v);Continue;end
else begin s[i]:=chr(r);Continue;end;  end;
if (ord(s[i])<=ord('Z')) and (ord(s[i])>=Ord('A')) then begin r:=ord(s[i])+54; if r<ord('A')
 
          вместо-х вставил+54
        получил
       не в зашифрованном виде Google.com  
       в зашифрованном виде вышло так       }ҐҐќў›.™ҐЈ
 

Всего записей: 36 | Зарегистр. 29-07-2011 | Отправлено: 15:30 08-08-2011 | Исправлено: yse, 16:00 08-08-2011
Man_Without_Face



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Frodo_Torbins
Спасибо, но пока этот вопрос придется отложить, еще есть куча ошибок, проще вернуться на делфи 2007. Есть другой вопрос: в варезнике не нашел топика для 2007, куда написать не знаю. C моего архива ставил несколько раз 2007, все нормально ставилось, теперь же при установке (executing - windows installer) выдает ошибку "Error" и завершается. XP sp3, еще стоят bds 2006, codegear 2009, embacadero XE.

Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 15:40 08-08-2011
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Man_Without_Face
Тема в варезнике: http://forum.ru-board.com/topic.cgi?forum=35&topic=38537 Проблемы могут быть из-за того, что уже стоит 2009. Попробуйте найти дистрибутив 2007 с интегрированными апдейтами. Если еще будут вопросы по установке 2007, то лучше их задавать в варезнике.
Что касается юникода, то перед началом перехода рекомендуется прочитать вот это: Delphi в мире Юникода часть I, часть II, часть III.

Всего записей: 2319 | Зарегистр. 24-05-2007 | Отправлено: 16:48 08-08-2011 | Исправлено: Frodo_Torbins, 16:50 08-08-2011
ZeUsMv



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток! Есть желание написать "админку", но проблема в том, что сервера, которые нужно администь под ораклом в Solaris, админка подразумевается на виндовс. Подскажите каким технологиями можно вытащить
1. ОСь - разрядность, версию
2. Информацию по разделам (партициям), свободно/занято
3. Память, всего/занято/свободно
4. Список процессов - нагрузка на процессор
5. Время ожидания чтения/записи с разделов.
 
 
Или это совсем невозможно?

Всего записей: 93 | Зарегистр. 11-07-2005 | Отправлено: 23:37 08-08-2011
Molniev

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. Если под админков вы подразумевает прогрмму "только под виндовс" - то пролет. Эта информация по сети штатными методами не доступна. Разве что, вы поставите webMin и будете через него собирать эту информацию. Но уж не знаю насколько нужно писать интерфейс над webmin-ом
 
2. Если вы подразумеваете 2-а приложения: на целевых системах и админка - то все просто - забирайте через пайпы вывод штатных комманд ала uname и отдавайте админке.
 
PS. А время ожидания чтения/записи с разделов - это чё за зверь? Оно как бы не совсем константа и колеблиться в весьма малых грницах. Может скорость чтения/записи?

Всего записей: 176 | Зарегистр. 13-03-2008 | Отправлено: 00:14 09-08-2011
ZeUsMv



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Molniev
Всё бы хорошо, но написать в дельфи под солярис сложновато. =(
 
Да вот хотелось бы именно wait time поиметь. Скорость это несколько иное имхо довольно стационарное значение, писать и читать с массива можно только в рамках пропускной способности.
 
На самом деле хочется что - то типа Quest Spotlite наваять но со своими хотелками, а он вроде в Дельфи писался.

Всего записей: 93 | Зарегистр. 11-07-2005 | Отправлено: 00:49 09-08-2011
Molniev

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Всё бы хорошо, но написать в дельфи под солярис сложновато. =(

Lazarus как бы работать должен. К тому же, говорю - webmin'а можно использовать в качестве клиента и собирать админкой с него информацию. Просто я особого толка в таких тандемах не вижу.
 

Цитата:
wait time поиметь

Мы наверное имеем в виду разные смыслы. Есть время ожидания программное - из за оптимизации очереди ввода-вывода диспечером, есть аппаратное - из-за перемещения головок. Пропускная способность к этому... она как бы используеться современными винтами не полностью. Скорость же меняеться в зависимости от сектора и не стационарное значение. Разница раза в полтора между краем и серединой пластин(ы).
Вобщем я слабо понимаю, что вы имеете в виду под временем ожидания и зачем это надобно.

Цитата:
Quest Spotlite

))) Опыта не хватит. Ваше изделие, в целом для народных масс, будет заведому хуже. Но это сугубо ИМХО, которое прошу не коментировать.
 

Всего записей: 176 | Зарегистр. 13-03-2008 | Отправлено: 02:08 09-08-2011
Gnom3



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день. Вопрос такой - возможно-ли для моего окна, отключить сглаживание шрифтов клиртип? окно создано отдельно, также отдельно из длл идет несколько функций, которые обрабатывают оформление окна, но для нормальной работы оформления необходимо отключить клиртип. На данный момент отключаю глобально, но напрягает ожидание при запуске программы, а если у пользователя еще и открыто много страниц с большим количеством текста, то это время ожидания достигает десятков секунд. Нашел такой код:
код, он включает клиртип для отдельно окна, переделать его наоборот не вышло (не хватило знаний, видимо). Создание своего шрифта, и подача его на окно - не сработало - у этого окна свой собственны шрифт, у которого нет опций включения-отключения сглаживания. В общем я в тупике, и вся надежда на то, что у когото была похожая проблема, и он поделится решением.

Всего записей: 864 | Зарегистр. 14-11-2010 | Отправлено: 17:50 09-08-2011 | Исправлено: Gnom3, 17:52 09-08-2011
Cryogen2003



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Gnom3
как я понимаю надо просто ANTIALIASED_QUALITY поменять на другой код

----------
Холодильники мы

Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 17:55 09-08-2011
Gnom3



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Cryogen2003
Не выйдет, это первое ,что я сделал. тот код применяется к форме, а у меня доступ к окну по хендлу. Проводил через FindControl(AHandle), вот так у меня вышло:
код, не вышло.

Всего записей: 864 | Зарегистр. 14-11-2010 | Отправлено: 18:03 09-08-2011
Открыть новую тему     Написать ответ в эту тему

Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (версии 2009, 2010 Weaver, 2011 Fulcrum)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru