Отправлено: 10.03.08 23:53. Заголовок: ANN: Вышел релиз FastReport for [x]Harbour (продолжение)

Здравствуйте.

Рад сообщить, что вышел релиз FastReport for [x]Harbour. Как всегда, информацию можно посмотреть:

http://www.paritetsoft.ru/frh.htm

Возможным русскоязычных покупателей лучше контактировать со мной напрямую по email. Цена для оплаты в рублях банковским переводом по выставленному счету- 9999 рублей.

--
Спирин Сергей.
Компания "Паритет Софт".
FRH sales: http://www.paritetsoft.ru/frh.htm
FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

 Отправлено: 25.07.11 10:49. Заголовок: Andrey пишет: 11 ию..

Andrey пишет:

цитата:

11 июля выпущены FastReport for COM/ActiveX и FastReport for Business версии 4.9 Что нового? + формат картинок во всех экспортах изменён на PNG + добавлен экспорт в DBF формат - этот формат востребован при обмене данными модулями различных бизнес-приложений. А у нас это когда будет ? Я не тороплюсь, просто спрашиваю....

А у нас это уже давно есть :) FastReport for COM/ActiveX и FastReport for Business (бывшая Студия) - это вторичные продукты по отношению к базовой FastReport VCL. В них все/всегда появляется позже.

экспорт в DBF же я пока не публиковал, так как глючит он что-то пока. Фокс получаемый dbf открыть не смог, что странно. Да и зачем вам dbf? У вас своего мало?

 Отправлено: 25.07.11 13:25. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Да и зачем вам dbf? У вас своего мало?

Да так, до кучи.... Интересно будет как таблицу с логотипом фирмы будет выгружать этот ЭКСПОРТ ?

 Отправлено: 02.08.11 20:36. Заголовок: Разобрался я с отпра..

Разобрался я с отправкой письма через функцию отправки.

Но не могу понять зачем в документации написано:
S := FrPrn:SendMail("someserver.com", 25, "MyUserName", "MyPassword", "from@xxx.ru", "to@xxx.es", "MySubject", "MyCompany", cTextField, cFileNames)

IF S <> ""
MsgBox(S)
ELSE
MsgBox("Mail is sent")
ENDIF

При неправильных данных (адресах) всегда выходит "Mail is sent", хотя письмо не отправляется и получаю ошибку в файл:
Mail is sent !
Timeout expired (60)
535 Incorrect authentication data

Чего я не догоняю ?

Исходник и прога здесь: http://files.mail.ru/GMDK7I

 Отправлено: 02.08.11 22:47. Заголовок: Andrey пишет: Чего ..

Andrey пишет:

цитата:

Чего я не догоняю ?

Возможно, что и разболталось за годы... Посмотрю на досуге. По задумке же, текст ошибки и должен возвращаться в S.

 Отправлено: 03.08.11 07:04. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

По задумке же, текст ошибки и должен возвращаться в S.

Тогда нужно написать:

IF LEN(S) > 0
MsgBox(S)
ELSE
MsgBox("Mail is sent")
ENDIF

 Отправлено: 03.08.11 10:15. Заголовок: Andrey пишет: Тогда..

Andrey пишет:

цитата:

Тогда нужно написать:

И в чем разница?

 Отправлено: 03.08.11 21:08. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

И в чем разница?

Тогда ошибка правильно появляется:


А почему это так - это нужно спрашивать у наших Гуру !

Вопрос знатокам, в чем различие этих конструкций ?


// --------- работает правильно --------------
IF LEN(S) > 0
MsgBox(S)
ELSE
MsgBox("Mail is sent")
ENDIF

 Отправлено: 04.08.11 08:40. Заголовок: Что возвращает SendM..

Что возвращает SendMail? Можно ж в runtime посмотреть.

PS
Хотя, скорее всего все правильно. Так работает сравнение строк:
http://www.ousob.com/ng/53guide/ng11a6ab.php
http://www.ousob.com/ng/53guide/nge677e.php

 Отправлено: 04.08.11 09:08. Заголовок: PSP пишет: Что возв..

PSP пишет:

цитата:

Что возвращает SendMail?

SendMail то возвращает пустую строку, если все хорошо, и текст ошибки, если все плохо. Текст ошибки примерно такой как Андрей показал, два квадратика это chr1310.

Да ясно, что "проблема" с "мягким" сравнением строк Типа пустая строка часть любой строки, и поэтому равна любой строке

Самое противное, что я всегда проверяю выкладываемый код. То есть, на какой-то версии [x]Harbour это работало по умолчанию по "нормальному" сравнению. То бишь есть зависимости от версий [x]Harbour... ну, что называется, эффекты "Жopen Source".

 Отправлено: 04.08.11 09:20. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Да ясно, что "проблема" с "мягким" сравнением строк Типа пустая строка часть любой строки, и поэтому равна любой строке

Режим сравнения зависит от установки SET EXACT. Нельзя заранее предугадать, какое значение у этого переключателя будет в конечном приложении. Поэтому, имхо, пустые строки лучше "ловить", к примеру, функцией Empty().

 Отправлено: 04.08.11 11:45. Заголовок: PSP пишет: Нельзя з..

PSP пишет:

цитата:

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

Я к тому, что и умолчательное значение SET EXACT менялось от сборки к сборке, так как я никогда не переопределяю умолчание в своих тестах.

А кстати, для равенства есть жесткое ==, а для неравенства?

 Отправлено: 04.08.11 12:23. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

А кстати, для равенства есть жесткое ==, а для неравенства?

Для неравенства точного сравнения нет, надо пользоваться:
! (x1 == x2)

 Отправлено: 11.08.11 22:08. Заголовок: Собрал ваш пример на..

Собрал ваш пример на Harbour 3.0:
http://www.paritetsoft.ru/downloads/frh_demo_simple_console.zip

Пришлось переделывать bat-ник , с тем не пошло.
Наверно добавьте его отдельно:
Compile_bcc-Harbour30.bat
@ECHO ON

@set HB_BIN_INSTALL=Z:\hb30\bin
@set HB_LIB_INSTALL=Z:\hb30\lib\win\bcc\
@set HB_INC_INSTALL=Z:\hb30\include\

del FastDemo.c
del FastRepH.c

%HB_BIN_INSTALL%\harbour SmplDemo.prg -n -i%HB_INC_INSTALL%
%HB_BIN_INSTALL%\harbour FastRepH.prg -n -i%HB_INC_INSTALL%

bcc32 -O2 -d -X -I%HB_INC_INSTALL% -L%HB_LIB_INSTALL% SmplDemo.c FastRepH.c harbour-30-bcc.lib hbvm.lib hbrtl.lib hbrdd.lib hbmacro.lib hbpp.lib rddntx.lib rddcdx.lib rddfpt.lib hbcommon.lib gtwin.lib hblang.lib hbcpage.lib hbct.lib hbpcre.lib hbsix.lib hbzlib.lib hbextern.lib hbhsx.lib rddnsx.lib

И функцию в Smpldemo.prg пришлось добавлять:
FUNCTION CurDrive()
RETURN HB_CurDrive()


Размер ЕХЕ-ника небольшой вышел: 300544, правда без harbour-30.dll не запускается....
Наверно в Compile_bcc-Harbour30.bat нужно как-то это указать для малоразбирающихся...

 Отправлено: 11.08.11 23:25. Заголовок: Исправленный демо пр..

Исправленный демо пример (который я раньше собирал) для Harbour 3.0 вам на сайт.
Для последней сборки FrSystH.dll
Протестировано, работает !!!
http://files.mail.ru/ZJNQ1J

 Отправлено: 12.08.11 11:08. Заголовок: Andrey пишет: Разме..

Andrey пишет:

цитата:

Размер ЕХЕ-ника небольшой вышел: 300544, правда без harbour-30.dll не запускается....

В соседней же ветке подсказали, что надо добавить ws2_32.lib, тогда и будет автономный exe в 2,5 мега.

 Отправлено: 12.08.11 12:28. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

В соседней же ветке подсказали,

Да я читал. Просто для других может непонятно будет.
А в примере вам для сайта, я указал в батнике как собирать.

 Отправлено: 13.08.11 14:18. Заголовок: Подскажите как форму..

Подскажите как форму ПРАВИЛЬНО делать.
Задача такова: есть базы с переменным количеством oplata2009.dbf , oplata2010.dbf, oplata2011.dbf (но могут быть еще и с 2000 года быть), алиасы этих баз предаю в FastReport соответственно.
Выходная форма должна быть такая:
http://files.mail.ru/N6DEEC

Или может все базы затолкать в одну ?
Как удобней сделать ?

 Отправлено: 13.08.11 22:24. Заголовок: Andrey пишет: Или м..

Andrey пишет:

цитата:

Или может все базы затолкать в одну ?

Если "затолкать", то это самое простое - группы. Если не ""заталкивать", то тоже можно, но это динамическое создание всех MasterData.

 Отправлено: 13.08.11 22:34. Заголовок: Andrey пишет: Как у..

Andrey пишет:

цитата:

Как удобней сделать ?

Ну или Композит по каждому году.

 Отправлено: 14.08.11 13:48. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Если "затолкать", то это самое простое - группы.

Сделал пример. Базы объединил в одну и создал поле "YEAR" по годам.
Читал в доке описание отчетов по группам, мало что понял.
Подскажите пожалуйста на примере как это сделать !
Заранее спасибо за помощь.
http://files.mail.ru/W5QS7U