Форум 'Delphi & Builder' на RSDN.RU

[XE2] параметр по умолчанию с дженериком

Fri, 10 Feb 2012 07:58:34 GMT

Всем привет!

такой вот код вызывает ошибку компилятора. почему?

  TA<T> = class
  end;

  TB = class
    function foo<T>(param: TA<T> = nil): TA<T>; // [DCC Error] E2086 Type 'TA<T>' is not yet completely defined
  end;
...
function TB.foo<T>(param: TA<T>): TA<T>;
begin
  Result := param;
end;

как-так то? вроде бы вполне корректная запись.
без дефолтного параметра nil все работает.

чтение eventviewer

Thu, 09 Feb 2012 09:47:19 GMT

я копирую периодически в отдельный каталог application.evtx .Как мне в Делфи этот файл прочитать ,так как он выглядит в event viewer и выводить в tmemo ? я хочу делать звуковые сигналы при определенных ошибках (по ключевым словам и типу, информации и варнинги игнорить)

Поведение функции, вызываемой из DLL

Wed, 08 Feb 2012 14:36:13 GMT

Добрый день.

Суть:
-есть DLL, написанная на С, Visual Studio (номер точно не знаю, уточнить можно);
-DLL статически связана с проектом на Delphi;
-вызывается функция Decoder(idx:ULONG; pInp_burst, pOut_frame:pointer; pConfigDecoder:PDecoderStruct):HRESULT;stdcall;
-все параметры функции — локальные переменные в процедуре;
-вызов функции "портит" некоторые поля структуры PDecoderStruct но не всегда!!!
-вернее будет сказать так:
-я отслеживаю 6-8 первых полей структуры, назовем их A1..A8 (ULONG);
-при неком определенном значении указателя стека эти поля не искажаются в результате вызова функции Decoder;
-если я добавляю перед вызовом функции Decoder несколько push-ей — то какое-то из полей A1...A8 будет испорчено, т.е. конструкция
...
rez :=Decoder(...);

отрабатывает нормально (при неком значении ESP для начала функции) а конструкция

asm
push eax;
push eax;
push eax;
...
push eax;
end;
rez :=Decoder(...);

приводит к "порче" полей структуры.

— количество push-ей зависит от контекста вызова функции, т.е. от размеров, или положения, или (еще чего-то) локального стека функции.
— возможно (и скорее всего), для первой конструкции искажения тоже присутствуют, но они попадают в поля структуры, в которых их отследить сложнее.

Я считаю, что в реализации функции Decoder(...) есть какая-то ошибка но я не могу найти объяснение такому её поведению, соответственно,
не понятно-как её локализовывать разработчику DLL: другая среда, другие значения стека.... и т.д.

Собственно-вопрос: что может теоретически в реализации функции Decoder(...) (или в её использовании мною) приводить к такомe эффекту?
Неициализированная переменная в DLL, которая "попадает" на разный адрес (при сдвижке стека), а там-какой-то "мусор", который интерпретируется соответственно?
Была такая мысль, но не подтверждается: если, к примеру, нужно добавить 5 push-ей, чтобы начал портится поле A8, то при 6 push-ах — портится поле А7,
7 push-А6 и т.д.

Всем спасибо заранее

PS: Размерность и тип входных параметров функции проверили.

Автотестирование класса при помощи RTTI

Wed, 08 Feb 2012 08:15:25 GMT

Имеется приложение построенное по архитектуре Domain Model. Приложение уже стало достаточно большим и задача тестирования слоя работы с базой данных становится все актуальнее. Плюс ко всему хочется подтянуть новых людей на развитие проекта, поэтому переживаю за качество кода.

Для отражение классов на базу данных используются мапперы. Для каждой сущности свой маппер. В сумме, количество процедур "дергающих" базу данных накопилось около 1000 шт.

Попробовал использовать DUnit для решения задачи. Оттестировал один класс — в целом понравилось. Но написание тестов для кучи процедур очень длительно по времени (и по деньгам).

Сейчас задача состоит в том, чтобы быть уверенным, что процедуры выполняются корректно на уровне SQL синтаксиса. Т.е. не возникает исключения из-за того, что в запросе указано поле или таблица, которой уже нет или вообще запрос написан криво. Т.е. правильность возвращаемых данных пока не проверяем.

Соответственно для этого возникла идея использовать механизм RTTI для этих целей, но опыта в этом деле и меня пока нет.

Процедурам в мапперах передаются различного рода параметры (простые типы, структуры и объекты). Поэтому хотелось бы написать такой класс, которому указывается класс для проверки и он дергает все методы по очереди и передавая самостоятельно созданные параметры с инициализированными значениями "по умолчанию" (для целых — 1, для строки "aaa", для даты "01.01.12" и
т.д.). Если в результате выполнения не возникло исключение — тест пройден!

Понятно, что часть тестов будет слетать из-за некорректных параметров, но полагаю их будет все же меньшенство. И для них я напишу тесты руками.

Ну и в итоге вопрос: возможно ли реализовать подобное автотестирование класса при помощи RTTI?

TWebBrowser, подмена загружаемых данных

Tue, 07 Feb 2012 20:36:44 GMT

TWebBrowser должен отображать зашифрованные страницы из ресурсов ехе-файла.
Те. алгоритм такой: Извлекаем из ресурсов index.html подсовываем его TWebBrowser в потоке — все хорошо. Но страница содержит ссылки на другие файлы находящиеся в ресурсах (графика, стили и т.д.). Возможно ли отловить момент когда браузер начнет загружать эти файлы и указать ему откуда их брать (точнее указать ему поток с извлеченными и расшифрованными данными)?

TCP сервер, ThreadPool

Mon, 06 Feb 2012 13:07:41 GMT

Привет,

По воле случая придется придется улучшать серверную часть долгоиграющего проэкта.
Давно не интересовался новинками в библиотеках, поэтому спрошу здесь.

Интересует бесплатная асинхронная библиотека для работы с сокетами. Indy не подходит, или они ее совсем переписали. Что-то появилось за 5 лет на этом поприще?

Также, было бы неполохо, если б порекомендовали библиотеку для работы с потоками. Пока нашел OmniThreadLibrary и AsyncCalls. Кто-то с ними разбирался? Что лучше?

Спасибо за любую информацию

Получить UTF8 строку из TMemoryStream

Mon, 06 Feb 2012 10:56:53 GMT

Есть кусок кода который получает от PHP какой-то текст в UTF8.
Получаю данные вот таким образом:

   HTTPRecvBuffer: array [0..512] of char;

......................
         while True do
         begin
           // Check for data ready
           Retries:=0;
           repeat
             lSucc:= InternetQueryDataAvailable(hFile, BytesRead, 0, 0);
             if NOT lSucc then Sleep(SleepTime);
             Inc(Retries);
           until lSucc OR (Retries <= Attempts);
           // Read data
           InternetReadFile(hFile, @HTTPRecvBuffer, BufferSize, BytesRead);
           if BytesRead = 0 then break;
           FOutStream.WriteBuffer(HTTPRecvBuffer, BytesRead);
           ProgBytesReaded:=ProgBytesReaded+BytesRead;
           if Assigned(OnProgress) then
             OnProgress(Self, ProgBytesReaded, ProgTotalBytes);
           if FTerminate then Break;
         end;

из потока пытаюсь читать вот так:

function StreamToString(aStream: TStream): string;
var
 SS: TStringStream;
begin
 if aStream <> nil then
 begin
   SS := TStringStream.Create('');
   try
     SS.CopyFrom(aStream, 0);
     Result := SS.DataString;
   finally
     SS.Free;
   end;
 end else Result := '';
end;
......................
ShowMessage(StreamToString(FOutStream));
......................

Но в результате русского текста не вижу, корявые символы получаются..

вот ещё на всякий случай результаты снифа полученной инфы:

HTTP/1.1 200 OK\r\n
Date: Mon, 06 Feb 2012 10:21:39 GMT\r\n  
Content-Type: text/html\r\n
Connection: keep-alive\r\n
Content-Length: 151\r\n

Line-based text data: text/html
 
<errcode>101</errcode>\n
[truncated] <errmsg>\320\240\320\265\320\263\320\270\321\201\321\202\321\200\320\260\321\206 \320\270\320\276\320\275\320\275\321\213\320\271 \320\272\320\273\321\216\321\207 \321\203\320\266\320\265 \320\270\321\201\320\277\320\276\320\273

Если урл вбить в адресной строке браузера и поставить вручную кодировку UTF8, то вижу именно то что отправил из PHP скрипта, т.е. с серверной частью проблем нет.

Добавлю ещё одно уточнение, код нормально работает с ANSI кодировкой, но сейчас возникла необходимость добавить мультиязыковую поддержку, поэтому переходим на UTF кодировку с которой и вылезли все вышеперечисленные проблемы.

RaveReport и кириллица

Thu, 02 Feb 2012 06:07:55 GMT

Delphi 7 (Windows XP SP3), сабж никак не может подружиться — постоянно кракозябры при формировании PDF

кусок теста:

procedure TForm1.btn1Click(Sender: TObject);
var
 Streams:TMemoryStream;
begin
   Streams:=TMemoryStream.create;
   Streams.LoadFromFile('C:\test.txt');

   RvNDrWriter1.StreamMode := smUser; 
   RvNDrWriter1.Stream:=Streams;
   RvNDRWriter1.Execute;
   RvRenderPdf1.PrintRender(Streams,'C:\test.pdf');
   ShellExecute(Handle,nil,'C:\test.pdf','','',SW_SHOW);
   FreeAndNil(Streams);
end;

procedure TForm1.RvNDRWriter1Print(Sender: TObject);
begin
   with RvNDRWriter1 do
   begin
     SetFont('System',12);
     FontCharset:=RUSSIAN_CHARSET;
     PrintHeader('тест',pjCenter);
   end;
end;

слово "тест" в заголовке отображается в виде иероглифов.
Пробовал уже меня шрифты, чарсеты — бесполезно.

Наследование интерфейсов

Sun, 29 Jan 2012 21:37:54 GMT

Привет,

допустим, что есть стандартное

type
 ISerializable = interface
   procedure Write;
 end;

 TClassA = class(ISerializable)
   procedure Write;
 end;

 TClassB = class(TClassA)
 end;

1. Должен ли я в TClassA реализовать Write?
2. Могу ли я объявить TClassA.Write как virtual? С последующим переопределением в наследниках и вызовом метода предка.
3. Должен ли я указывать для TClassB = class(TClassA, ISerializable)? Или оно итак отнаследуется?

Если не городить своё.
Появилось в миру что-то по сериализации, окромя TComponent/TPersistent?
Может компоненты какие, упрощающие процедуру?

Изменение текста в RichEdit без изменения положения курсора

Thu, 26 Jan 2012 09:59:08 GMT

Ситуация. Необходимо в RichEdit изменить текст, например, слово сделать подчеркнутым при наведении на него курсора мыши. Но необходимо, чтобы текстовый курсор (каретка) оставался на месте.
Получаем примерно такой код:

  b = RichEdit1->SelStart;
  RichEdit1->SelStart = ...;
  RichEdit1->SelLength = ...;
  RichEdit1->SelAttributes->Style = TFontStyles(4);
  RichEdit1->SelStart = b;

Но, все бы ничего. Если текстовый курсор расположен на тексте, который вне зоны видимости, выполнение этого кода приведет к скачку, текст сместится до видимости текстового курсора.
Возникает вопрос, как изменить текст в RichEdit так, чтобы это не приводило к скачкам текста?

Как добавить язык в систему

Wed, 25 Jan 2012 20:20:03 GMT

Сейчас в системе (Win7/XP) есть английский и русский языки. Как добавить программно, например немецкий, без лазанья по панели управления, региональным настройкам, клавиатура и т.д.?
Нашел метод через LoadKeyboardLayout, но в списке использованых языков (в панели управления) язык не добавляется и после перезагрузки системы — изчезает.

проблема с TeeChartoм

Wed, 25 Jan 2012 12:33:30 GMT

стоял 6 дельфи с 7 тичартом. усе работало. показалось мне что глючный у меня дистрибутив тичарта. снес. поставил для тичарт 2011 и обновление для рунтайм библиотек3 для дельфи 6(требовалось для нового тичарта). стало вылазить сообщение EReadError : property gradient does not exist при создании формы с тичартом. ага думаю вообще кривулина какая то! вернулся к назад к семерке. та же ошибка. поставил пятерку — та же ошибка. самое интересное что в коде ни буквы не изменил. НА СОСЕДНЕЙ МАШИНЕ — ВСЕ РАБОТАЕТ.
переставил полностью рабочее место: дельфи, компоненты. ОДИН ФИГ КАЖЕТ ЭТУ ОШИБКУ. осталось снести только винду, но очень бы нехотелось терять время, может кто уже наступал на эти грабли?

Узнать размер экрана и рабочего стола (FMX)

Tue, 24 Jan 2012 02:16:40 GMT

Как узнать размер экрана и рабочего стола (FMX)?

Ограничение длинны теста StatusBar

Fri, 20 Jan 2012 07:14:51 GMT

WinXP SP3. Заметил особенность вывода текста в панелях StatusBar — выводятся только первые 127 символов. Это так и задумано MS или это какой-то мой косяк?

Совместимость компонент на С++ Builder и Delphi

Tue, 17 Jan 2012 09:56:49 GMT

собственно можно ли использовать в delphi те компоненты, которые мыли написаны на C++ Builder?

искал по форуму, так и не нашел ответ. Для себя понимаю, что компоненты разработанные на Delphi можно использовать в билдере, но как обратное сделать, не понятно.

_matherr не вызывается при сборке в режиме release

Fri, 13 Jan 2012 11:35:49 GMT

Добрый день.

Имею код, в котором возможны переполнения в операциях с плавающей точкой, и контролем аргументов это обойти нельзя. Мое счастье, что переполнение происходит только в определенных случаях, когда результат известен заранее, и поэтому я реализовал функцию _matherr для обработки переполнений, а чтобы осмысленно возвратить управление в функцию, генерирую исключение.

Возникло странное: в режиме debug _matherr вызывается, как и положено, но не вызывается в режиме release. Почему это может происходить?

CodeGear RAD C++ Builder 2007

// Одна из функций с переполнениями.
double D26::F(double x) const {
    try {
        slongfloat y=pow(fabs(x),a);
        return 0.5 + sign(x)*G(y,1/a)/(2*G(1/a));
    }
    catch(PowExpOverflow) {
        return 0.5;
    }
}

struct PowExpOverflow {};

int CustomMatherr(struct _exception *a, struct _exceptionl *al)
{
    Application->MessageBox("Inside CustomMatherr", "head", MB_OK);
    int type = a ? a->type : al->type;
    char * name = a ? a->name : al->name;
    if (type == OVERFLOW)
        if (!strcmp(name,"pow") ||
            !strcmp(name,"powl") ||
            !strcmp(name,"exp") ||
            !strcmp(name,"expl"))
        {
            throw PowExpOverflow();
        }
    return 0;
}

/// Управляет поведением CRT при возникновении ошибки в математических функциях.
int _matherr (struct _exception *a){
    return CustomMatherr(a, 0);
}
/// Управляет поведением CRT при возникновении ошибки в математических функциях
/// с аргументом типа long double.
int _matherrl (struct _exceptionl *a){
    return CustomMatherr(0, a);
}

Установка компонентов в DELPHI 2007

Thu, 12 Jan 2012 12:39:45 GMT

Добрый день. Помогите со следующей проблемой. Есть проект, который разрабатывался в Delphi 7 на windows xp. В этом проекте использовались сторонние компоненты, которые в Delphi 7 успешно подключались.
Далее проект будут разрабатывать в Delphi 2007 на Windows 7. Как подключить сторонние компоненты в Delphi 2007. Каждый компонент состоит из 2-х файлов с одинаковым именем, но с разным расширением: dcu и pas.
Как это привязать к Delphi 2007?

Delphi2009 не понятная ошибка с загрузкой изображения

Wed, 11 Jan 2012 20:27:20 GMT

Есть два потока:
1-ый — рисует битмапы (TBitmap) из кеша
2-ой — поднимает файлы изображений с диска, уменьшает, помещает в кеш
Довольно редко (менее 2%) и на разных файлах бывате так, что вместо уменьшенной картинки получается белый прямоугольник.
Слётов нет, форматы bmp и jpg, подключен модуль jpeg, ... что ещё сказать ...
Пустышки могут быть как и для файлов bmp так и jpg. Загружаю файл так:

        Picture := TPicture.Create;
        try
          Picture.LoadFromFile( FileName );
          ...
          ...
        finally
          FreeAndNil( Picture );
        end;

Если сделать плохо — второй поток входит в критическую секцию и кеширует все файйлы, то все изображения нормальные.
Но так не гуд, так как пользователь при этом "висит".

Почему получается пустое изображение, подскажите плиз? Может это какие-то глобальных рерурсы рисования?

проблема XE2 с SP3

Wed, 11 Jan 2012 16:22:01 GMT

1. Поставил дистрибутив
2. Запустил delphi XE2
3. Создал пустой проект
4. Запускаю (F9) под отладчиком — AV. Без Отладчика — работает.
Установлена XP c SP3.
Есть какие-то подводные камни или это локальная проблема? никто не сталкивался с такой ошибкой?

Поиск текста RichView

Sat, 07 Jan 2012 20:56:22 GMT

Здравствуйте. Не получается осуществить полностю "рабочий" поиск текста в RichView.
Вызываеться деалоговое окно FindDialog. В обработчике onFind стоит код:

TRVSearchOptions *opt=new TRVSearchOptions(FindDialog1->Options.ToInt());
if(!RichView1->SearchTextW(FindDialog1->FindTextW,*opt))
{
    ShowMessage("Слово \""+FindDialog1->FindTextW+"\" не найдено");
}
delete opt;

Поиск осуществляется только вниз по тексту и все. Если во время поиска переключится на поиск вверх, то ничего не происходит. С другими параметрами поиска аналогично.

Проблема кажется в передаче параметров поиска, тосить TRVSearchOptions. Пробовал использовать ф-цию GetRVSearchOptions (документирована), но линкер почемуто потом ошибку выбрасывает. Для работы этой ф-ции приходится подключать файл RVMisc.hpp.
Как правильно настроить поиск?