| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

GUI & Console

uinor ©   (2009-09-24 22:09:00) 

Понимаю, что наркоманство, но требуется реализовать оба режима (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-25 08:17:00) [1]

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

---

Leonid Troyanovsky   (2009-09-25 08:06:00) [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-24 22:10:00) [3]

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

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

---

Наверх