Текущий архив: 2012.01.22;
Скачать: CL | DM;

Вниз

GUI & Console   Найти похожие ветки 

← →
uinor   (2009-09-24 22:09) [0]

Понимаю, что наркоманство, но требуется реализовать оба режима (GUI & Console) в одной программе, при этом основным режимом является GUI, но в случае, если есть параметры командной строки, то выводим все в консоль.

Своя консоль - это легко. Требуется сделать вывод в родительскую.

Реализовал следующим образом (понимаю, что минимум Windows XP):
var
 ConsoleOutput: Boolean;
 AttachConsole: function(dwProcessId: Cardinal): Boolean; stdcall;

procedure WriteConsole(const AOutputStr: string);
begin
 if WriteLog then
   WriteLn(AOutputStr)
 else
   ... skipped ...
end;

begin
 if (ParamCount > 0) then
 begin
   // Пробуем наладить консоль
   ConsoleOutput := False;
   AttachConsole := GetProcAddress(GetModuleHandle("kernel32.dll"), "AttachConsole");
   if (@AttachConsole <> nil) then
     ConsoleOutput := AttachConsole($FFFFFFFF);

   WriteLog("Console Mode!");
 end else
 begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
   Application.Title := "Requte";
   Application.CreateForm(TfrmMain, frmMain);
   Application.Run;
 end;
end.

Все нормально. Но есть небольшая проблема - когда мы выполняем cmd myApp.exe >myApp.log получаем i/o exception на WriteLn.

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

---

← →
uinor   (2009-09-24 22:10) [1]

procedure WriteLog(const AOutputStr: string);
begin
if (ConsoleOutput) then
  WriteLn(AOutputStr)
else
  ... skipped ...
end;

Поправочка. Приношу свои извинения, код правил прямо здесь.

---

← →
Leonid Troyanovsky ©   (2009-09-25 08:06) [2]

> uinor   (24.09.09 22:09)  

> Все нормально. Но есть небольшая проблема - когда мы выполняем
> cmd myApp.exe >myApp.log получаем i/o exception на WriteLn

Похоже на косяк by M$.

> Интуитивно, я понимаю, что надо решать как-то иначе

Правильно понимаешь.
Ничего лучше, чем написать два приложения не придумали.
И МС так делает.

В крайнем случае 3: - сервер и 2 клиента.

--
Regards, LVT.

---

← →
uinor   (2009-09-25 08:17) [3]

@Leonid Troyanovsky
Целиком с вами согласен.

---

Страницы: 1 вся ветка

Текущий архив: 2012.01.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.008 c