Перехват консоли srcds.exe

[koshmel]

хочу перехватить In Out консоли на Дельфи.
ето все что у меня получилось вытянуть :%)
сама консоль выходит у меня с ошибкой

Код: Выделить всё

Console initialized.
Game.dll loaded for "Team Fortress"
Particles: Missing 'particles/error.pcf'
maxplayers set to 24
Network: IP 192.168.0.2, mode MP, dedicated Yes, ports 27015 SV / 27005 CL
CTextConsoleWin32::GetLine: !GetNumberOfConsoleInputEvents

думаю, я все таки не правильно что то делаю :D

очень нужно для завоевания мира

[andreil]

Раз на Дельфи, то тебе нужен Delphiworld. На крайняк - заюзай поиск на delphimasters.ru.
Я нашел три рабочих примера в ДельфиВорлде и вполне успешно их юзаю. Выложить не могу, тк нахожусь в 100км от дома, где это все ;)

[koshmel]

нашол рабочий вариант (ток он без своего потока)
думаю и через ето падает консоль сервера.
ищу еще более работо способный вариант

[Dark Daskin]

Сегодня тоже столкнулся с этой проблемой. Если кто-то нашёл решение, опишите, я всё перегуглил, но безрезультатно. Пишу на C#, но пойму любой ответ.

[koshmel]

Я тоже не нашол =(

[andreil]

Ладно. На выходных (а может и на неделе) буду дома, поэксперементирую ;)

[Letov]

drkb - очень полезная вещь (http://www.drkb.ru/) Там много хорошего материала по разным темам, в том числе и по данной.

Hужно использовать пайпы (CreatePipe), и работать с ними как с обычным файлом.

Код: Выделить всё

 
const
H_IN_READ = 1;
H_IN_WRITE = 2;
H_OUT_READ = 3;
H_OUT_WRITE = 4;
H_ERR_READ = 5;
H_ERR_WRITE = 6;

type
TPipeHandles = array [1..6] of THandle;
var
hPipes: TPipeHandles;
ProcessInfo: TProcessInformation; 

(************CREATE HIDDEN CONSOLE PROCESS************)
function CreateHiddenConsoleProcess(szChildName: string;
        ProcPriority: DWORD; ThreadPriority: integer): Boolean;
label
error;
var
fCreated: Boolean;
si: TStartupInfo;
sa: TSecurityAttributes;
begin
// Initialize handles
hPipes[ H_IN_READ ] := INVALID_HANDLE_VALUE;
hPipes[ H_IN_WRITE ] := INVALID_HANDLE_VALUE;
hPipes[ H_OUT_READ ] := INVALID_HANDLE_VALUE;
hPipes[ H_OUT_WRITE ] := INVALID_HANDLE_VALUE;
hPipes[ H_ERR_READ ] := INVALID_HANDLE_VALUE;
hPipes[ H_ERR_WRITE ] := INVALID_HANDLE_VALUE;
ProcessInfo.hProcess := INVALID_HANDLE_VALUE;
ProcessInfo.hThread := INVALID_HANDLE_VALUE;
// Create pipes
// initialize security attributes for handle inheritance (for WinNT)
sa.nLength := sizeof(sa);
sa.bInheritHandle := TRUE;
sa.lpSecurityDescriptor := nil;
// create STDIN pipe
if not CreatePipe( hPipes[ H_IN_READ ], hPipes[ H_IN_WRITE ], @sa, 0 ) then
   goto error;
// create STDOUT pipe
if not CreatePipe( hPipes[ H_OUT_READ ], hPipes[ H_OUT_WRITE ], @sa, 0 ) then
   goto error;
// create STDERR pipe
if not CreatePipe( hPipes[ H_ERR_READ ], hPipes[ H_ERR_WRITE ], @sa, 0 ) then
   goto error;
// process startup information
ZeroMemory(Pointer(@si), sizeof(si));
si.cb := sizeof(si);
si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
si.wShowWindow := SW_HIDE;
// assign "other" sides of pipes
si.hStdInput := hPipes[ H_IN_READ ];
si.hStdOutput := hPipes[ H_OUT_WRITE ];
si.hStdError := hPipes[ H_ERR_WRITE ];
// Create a child process
try
   fCreated := CreateProcess( nil, PChar(szChildName), nil, nil, True,
   ProcPriority, // CREATE_SUSPENDED,
   nil, nil, si, ProcessInfo );
except
   fCreated := False;
end; 

if not fCreated then
   goto error; 

Result := True;
CloseHandle(hPipes[ H_OUT_WRITE ]);
CloseHandle(hPipes[ H_ERR_WRITE ]);
// ResumeThread( pi.hThread );
SetThreadPriority(ProcessInfo.hThread, ThreadPriority);
CloseHandle( ProcessInfo.hThread );
Exit;
//-----------------------------------------------------
error:
   ClosePipes( hPipes );
   CloseHandle( ProcessInfo.hProcess );
   CloseHandle( ProcessInfo.hThread );
   ProcessInfo.hProcess := INVALID_HANDLE_VALUE;
   ProcessInfo.hThread := INVALID_HANDLE_VALUE;
   Result := False;
end; 

http://delphiworld.narod.ru/
DelphiWorld 6.0
©Drkb::02189

[Aizek]

извиняюсь канешна что выкопал труп... но через пайпы консоль сервака не перехватить, потому что он использует ф-ции работы с консолью, которые вызвращают ошибку если консоль перенаправить на себя. нужно внедрять dll в контекст процесса и из нее уже получать данные из консоли. я в ближайшее время попытаюсь реализовать эту возможность.
хочу чтобы виндовый сервак обновлялся сам :)

[Aizek]

Автоматическое обновление читать

[bober943]

Точно такая же проблема на CPP

[bober943]

Что, нет никакого способа перехвата консоли на C++?

[MOZGIII]

Читай последние четыре сообщения и гугли про внедрение dll.