» Вопросы по Delphi (все версии) - часть 3

Application.Terminate это: уважаемая VCL не будете ли вы так любезны корректно отправить приложение на покой?
А Halt это просто дубиной по голове и все. Помоему даже finalization секции не выполняются, сразу выгрузка из памяти.

Frodo_Torbins
т.е. если какой-то ахтунг, то с Terminate можно еще зацепиться за эксепшны и приложение может повиснуть, а Halt гарантированно убивает прогу.. тогда вопрос
если прога в этот момент открывала текстовые файлы, работала с БД - насколько разрушительным может быть применение Halt :-?

открытые файлы будут закрыты, но нет гарантии, что забуферизированные данные будут сброшены. По поводу БД - тут двояко. если БД серверная и активно используются транзакции - ничего страшного не будет, транзакция откатиться и всё. Другое дело, если это локальная - тут всё равносильно тем же файлам. Хотя Access например всё разрулит.

Halt просто останавливает в данной точке выполнение программы и всё. ни шагу больше, дальше уже сама операционка заметает следы - вычищая память, закрывая файлы, уничтожая ресурсы. Рекомендуется применять для крайних случаев.

OdesitVadim
О! отлично - то что надо, мне как раз важно было что било прогу сразу, а то бывают некоторые ситуации, когда надо выдать мою ошибку (в красивом окошечке), а потом
я точно знаю что исправить уже нечего нельзя - убить программу побыстрому %)

и в случае с Терминэйтом у меня иногда зависали эксепшны на выходе, иногда зацикливало эти ошибки.. в общем не совсем то что я хотел, видимо, Халт мне поможет

спасибо

Minissota

Цитата:

SQL.Add('SELECT * from PRIEM_OTDEL'); \\ (PRIEM_OTDEL это имя таблицы)
SQL.Add('WHERE');
SQL.Add('(fio_bol = "'+ fam + '")');
SQL.Add('ORDER BY fio_bol');

А ты уверен что такое поле есть?
Ну поставь вконце запроса ";", может поможет, а имя таблицы попробуй в [...] поместить.
ASC и DESC в сортировке необязателен, но может добавить?
На какую строчку ругается?


Добавлено:
xy
Интересно вы ребята с ошибками боретесь Что за ситуация такая, где ошибку исправить нельзя?

Цитата:

Что за ситуация такая, где ошибку исправить нельзя?

Ну вот у меня нечто похожее было:
Идет обмен через COM порт с каким-то девайсом.
(Вследствие малограмотности для работы с ком портом использую очень удобный компонент TComport из ComPort Library)
Если использовать переходник USB-COM, то его могут неожиданно выдернуть из компа. Вот тут то все и начинается...

PS Если кто работал с FT232R в режиме D2XX - можно ли для него создать событие типа "OnRXBuf" - чтобы не опрашивать постоянно "появились ли данные?"

nuker2015
у меня есть два типа ситуаций - во-первых, когда приложение теряет коннект с БД и восстановить не удаётся - чтобы убить приложение тихо и надежно, ибо там очень много всего оно делае на выходе и по упомянутой выше - малограмотности :) - ситуация аварийного дисконнекта в процедурах выхода (всякие OnClose/OnDestroy) предусмотрена далеко не везде ;)

и во-вторых - в разных местах приложения проводятся разные проверки легальности его использования - если проверка провалилась - надо тихо убить приложение (хотя тут и валидное закрытие в общем-то проканывает почти всегда, но "почти" не всегда устраивает ;), убийство haltом с потерей буферов и т.п. получается даже более суровым для такой ситуации и удобным
здесь правда тупо вызывать Халт не рекомендуется ибо по таким вызовам можно вычислить места проверки, но маскировка - это уже другой вопрос :)

nuker2015

Цитата:

Ну поставь вконце запроса ";", может поможет, а имя таблицы попробуй в [...] поместить.

Не поможет. Ругалось бы на отсутствие поля/таблицы.

Minissota
У тебя условие вывода - ПОЛНОЕ совпадение. Т.е. введешь ИВАН - и получишь только ИВАН. Рой в сторону 'fio_bol LIKE "ИВАН%" '. Тогда будет выводить и ИВАН, и ИВАНОВ и ИВАНИДЗЕ и ИВАНИЩЕНКО, т.е. все, начинающееся на ИВАН. И посмотри еще на регистр букв - это тоже может влиять и лечится соотв. функциями SQL.

nuker2015
нет у грида проперти Column. Вопрос остается открытым

RostY
Попробуй:

Код: TcxGridDBColumn(ACellViewInfo.Item).DataBinding.FieldName

Minissota
попробуй вместо
SQL.Add('(fio_bol = "'+ fam + '")');

написать
SQL.Add('(fio_bol = '''+ fam + ''')');

(вместо двойных кавычек и одинарных три одинарные)

Добавлено:
Mandor Sawall
Есть такая буква !!!!! Большое спасибо.

Когда же народ научится параметры использовать?

Код:
SQL.Add('(fio_bol = :fam)');
Params[0].asString := fam;

OXDBA
три и скобку и еще одну

Цитата:

(вместо двойных кавычек и одинарных три одинарные)

А я обычно пользуюсь функцией QuotedStr, чтоб c кавычками не морочиться.
Т. е.:
SQL.Add('(fio_bol = '+ QuotedStr(fam) + ')');

kirillkr

Цитата:

У кого есть опыт работы такой связки:
Firebird (unicode_fss)
FIB Plus
Delphi 7

нтересует такой вопрос, сколько придеться проходить напильником, чтобы приложение работало в режиме unicode? Какие-то компоненты понадобятся или можно обойтись стандартными? Что для этого надо будет сделать? Что порекомендуете прочитать по этой теме?

Никаких проблем и напильников не понадобится если работать с FIB Plus.
Прочитать можно статьи на самом сайте FIB Plus, правда я работал в среде Д2006, но думаю проблем не должно быть. Еще тебе понадобятся Юникод контролы
"Tnt Unicode Controls" или Юникодовские "LMD".
А для ДБ Грида Посоветую "Berg NextDbGrid" он идет в комплекте "Next Berg Component Site".
Все это добро есть на этом форуме.
удачи.

Кто нибуть работал с XLSRW II 3.01.02?
Как в компоненте ТXLSReadWriteII2 сменить ширину колонки?
В мануале пишут:

Цитата:

// Set the width of a column in characters
XLS.Sheet[0].Columns[6].CharWidth := 12;
// Set the width of a column in pixels
XLS.Sheet[0].Columns[7].PixelWidth := 30;

Но когда я пишу:

Код: XLSReadWriteII21.Sheets[0].Columns[1].CharWidth:=12;

lavren

Недостаточно кода. Необходим Ваш код, который может приводить к ошибке.

Скорее всего не инициализирован или неправильно создан какой-то объект (возможно типа XLSColumn или его содержащий), потому как происходит нарушение памяти при попытки записи в privat память объекта. Где создается объект типа TXLSColumn?

jemiko

Цитата:

удачи.

Огромное спасибо. У Вас есть опыт? Можно будет обращаться если возникнут вопросы?

lavren
попробуйте через
procedure SetColWidthChar(Col1, Col2: integer; Value: double)
Sets the width in characters for colmns Col1 to Col2.

например, поставить ширину 20 символов для третьей колонки (нумерация идёт от нуля, если мне память не изменяет):
XLSRW.Sheets[0].Columns.SetColWidthChar(2, 2, 20);

p.s. если надо ширину не в символах, есть ещё SetColWidth(Col1, Col2, Value: integer)

Ребят, может кто подскажет. Возникла проблема. Запускаю 3d Mark 06 с помощью CreateProcess


Код:
function Tfrm_Main.TestRunner(const FileName, Params: String; const WinState: Word):boolean;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: String;
begin
CmdLine := '"' + Filename + '" ' + Params;
with StartInfo do
begin
FillChar(StartInfo, SizeOf(StartInfo), #0);
cb := SizeOf(StartInfo);
end;
if FileExists (filename)=false then ShowMessage('Не найден файл '+filename) else
begin
Result := CreateProcess(nil, PChar(String(cmdline)), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(String(ExtractFilePath(Filename))),StartInfo,ProcInfo);
if Result=true then
begin
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
end;

daMMned
а так не пробовал:
[more]
procedure TForm1.Button1Click(Sender: TObject);
Var
s:integer;
prog: array [0..255]of char;
param: array [0..255]of char;
wrkdir: array [0..255]of char;
FProcessHnd: THandle;
FTimer:TTimer;
ExitCode:DWord;
ShellInfo:TShellExecuteInfo;
FHInstance:THandle;

begin
StrPCopy(prog,Edit1.Text);
StrPCopy(param,Edit2.Text);
StrPCopy(wrkdir,Edit4.Text);

FillChar(ShellInfo,SizeOf(TShellExecuteInfo),0);
ShellInfo.cbSize:=SizeOf(TShellExecuteInfo);
ShellInfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
ShellInfo.Wnd:=HWnd_Desktop;
ShellInfo.lpFile:=prog;
ShellInfo.lpParameters:=param;
ShellInfo.lpDirectory:=wrkdir;
ShellInfo.nShow:=SW_SHOWNORMAL;

if ShellExecuteEx(@ShellInfo) then
begin
Edit3.Text:='Working';
FHInstance:=ShellInfo.hInstApp;
FProcessHnd:=ShellInfo.hProcess;
repeat
Application.ProcessMessages;
GetExitCodeProcess(FProcessHnd,ExitCode);
until (ExitCode<>still_Active);

Edit3.Text:='Terminated:'+IntToStr(ExitCode);
end;
end;
[/more]


Добавлено:
еще вариант: засунуть порверку ту что в цикле repeat-until в таймер

SERGE_BLIZNUK
Заработало! Спасибо!

RostY
Нет, так не пробовал.
Помогло, большое спасибо.

Разбираю один исходник, в нем вместо &#8203;Sleep(100) используется WaitForSingleObject(0, 100) - насколько это корректно и вообще, зачем так сделано, может кто толково объяснить?

relictus
WaitForSingleObject - прямой вызов Win32 API (см. описание в MS SDK Help), абсолютно корректно.
Смысл вызова - просто ждем 100 без указания объекта (хэндл - 0)
Зачем сделано именно так - сказать сложно, возможно автору исходника привычней работать с объектами синхронизации - крититческими секциями, защелками и семафорами.

Через некоторое время после установки CodeGear RAD Studio 2007 при запуске начинает требовать серийник Enterprise Core Objects 4, причем это окно вылезает также при запуске VS2005, есть ли ключик или кряк для ECO какой нибудь?
Заранее благодарен hxxh@mail.ru.

kirillkr

Цитата:

Огромное спасибо. У Вас есть опыт? Можно будет обращаться если возникнут вопросы?

Опыт не большой, но пообщатся можно конечно, ответим по мере возможности (знания) и времени.

Пишу программу на Дельфи, которая использует некую dll (в конкретном случае - twain32.dll). У этой длл-ки есть неприятная особенность - когда источник данных физически не подключен к порту компьютера, то при попытке коннекта к устройству длл-ка выбрасывает на экран окошко с ошибкой, в котором нужно нажить кнопку "ОК".

Я думаю, перехватить этот Exception моя программа не в силах, тогда такой вопрос: как используя ресурсы twain32.dll, определить, подключено ли устройство к компу или нет?

Возможное решение, к которому я сейчас склоняюсь, это создание в моей программе потока, из которого будет вызываться эта dll именно в момент открытия источника данных, а в основной программе повесить WaitForSingleObject на данный поток с временем ожидания 1000-2000 мс, после истечения которого считать, что окошко с ошибкой всё же появилось. Но это решение мне кажется не совсем корректным, потому как неизвестно, будет ли фунциклировать twain32.dll, если не нажать на кнопку "ОК" в окне с ошибкой. (Примечание: моя программа запускается от имени некоего пользователя, и, естественно, залогинившийся на компе юзер не увидит никакого окошка с ошибкой и тем более не сможет ни на что нажать).

Ребята простите за офтоп, но чисто ради Delphi. Может быть кто то еще не знает Codegear проводит очередной опрос мнения разработчиков. Прошу всех ответсвенно проголосовать.
http://www.delphilab.ru/content/view/212/1/

В моем Кодегире 2007 студия
VCL for Web 9 незарегистрирован, посоветуйте, че сделать, чтоб заработало
Спасибо