MyCity » Pascal » Capture console output

Capture console output

Napisano na dan: 18.6.2004

Capture console output
Sledeća strana Pagination

Idi na vrh

Poslao: 18 Jun 2004 14:32
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Opet ja sa mojim problemima. Ovaj put pokusavam da uhvatim poruke koje mi ispisuje aplikacija u konzoli i da doticne vratim u recimo Memo komponentu. Problem je sto je program koji se izvrsava u konzoli ustvari linux program kompajliran na Cygwinu. Neke rezultate sam vec ostvario, tj. kada konsolni program odradi svoje ja dobijem poruke koje je ispisao na ekranu u mojoj Memo komponenti (za to vreme se konzola ne vidi). Medjutim, poruke dobijem tek na kraju, sve odjednom, a ne periodicno kako se one ustvari pojavljuju na ekranu.

Evo koda koji sam koristio:
procedure TConsoleForm.RunCaptured(DosApp : string;AMemo : TMemo); const   ReadBuffer = 1048576;  // 1 MB Buffer var   Security            : TSecurityAttributes;   ReadPipe,WritePipe  : THandle;   start               : TStartUpInfo;   ProcessInfo         : TProcessInformation;   Buffer              : Pchar;   TotalBytesRead,   BytesRead           : DWORD;   Apprunning,n,   BytesLeftThisMessage,   TotalBytesAvail : integer; begin   with Security do   begin     nlength              := SizeOf(TSecurityAttributes);     binherithandle       := true;     lpsecuritydescriptor := nil;   end;   if CreatePipe (ReadPipe, WritePipe, @Security, 0) then   begin     Buffer  := AllocMem(ReadBuffer + 1);     FillChar(Start,Sizeof(Start),#0);     start.cb          := SizeOf(start);     start.hStdOutput  := WritePipe;     start.hStdInput   := ReadPipe;     start.dwFlags     := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;     start.wShowWindow := SW_HIDE;     if CreateProcess(nil      ,PChar(DosApp),                      @Security,@Security,                      true     ,CREATE_NO_WINDOW or NORMAL_PRIORITY_CLASS,                      nil      ,nil,                      start    ,ProcessInfo) then     begin       n:=0;       TotalBytesRead:=0;       repeat         Inc(n,1);                   Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);         Application.ProcessMessages;         if not PeekNamedPipe(ReadPipe        ,@Buffer[TotalBytesRead],                              ReadBuffer      ,@BytesRead,                              @TotalBytesAvail,@BytesLeftThisMessage) then break         else if BytesRead > 0 then           ReadFile(ReadPipe,Buffer[TotalBytesRead],BytesRead,BytesRead,nil);         TotalBytesRead:=TotalBytesRead+BytesRead;       until (Apprunning <> WAIT_TIMEOUT) or (n > 150) ;       Buffer[TotalBytesRead]:= #0;       OemToChar(Buffer,Buffer);       AMemo.Text := AMemo.text + StrPas(Buffer);     end;     FreeMem(Buffer);     CloseHandle(ProcessInfo.hProcess);     CloseHandle(ProcessInfo.hThread);     CloseHandle(ReadPipe);     CloseHandle(WritePipe);   end; Memo1.Text := AnsiReplaceStr(Memo1.Text, chr(10), (chr(13) + chr(10))); end; end.

Zadnja linija mi pretvara Linuxov kraj linije u Windowsow (CR > CR/LF).

Jel moze neko da mi pomogne da nateram ovo cudo da mi pokazuje poruke onda kada se pojave a ne tek na kraju?
Mislim da je problem bas u CR <=> CR/LF razlici.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Pascal » Capture console output

Ko je trenutno na forumu
 

Ukupno su 919 korisnika na forumu :: 147 registrovanih, 13 sakrivenih i 759 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 037, akrep, AleksandarV, Apis Dr, Apok, Aristotle2002, Armadillo, Asparagus, Ba4e, Batko.VD.65, bigbear, Bo96, bobo85, Bobrock1, bojan_t, bokicacar, Boris BM, Boris90, Boroš, BORUTUS, brufen, carinko, CHARLIE JA., cifra, CikaKURE, cojapop, cyprus, darkojbn, dejan1972, DejanCG, dekan.m, dekila, Dioniss, Djokislav, DjomlaHomer, Dogma21, Dolinc, Dovla 1980, Dr.Strangelove, draganca, Draganeli, drale12, dushan, Dzuki, Ercomero, EXIT78, fokac, FOX, gale48, Geran136, Giskard, Goran 0000, Goran_, GveX, Hans Gajger, ivan1973, IvanM1984, JankoS, Jokas, JOntra, Kajzer Soze, KimiMR, KizJ, Kobrim, kovacicbozo, Kriglord, Kružić, lacko, Lance Guest, lanishtefm, Litostroton, lucianovercetti, Lucije Kvint, mackenzie, Marko Marković, MaschinenPistole, mat, Medojed, Metanoja, miki kv, milanpb, mile33, milutin134, mino bosanac, Mis uz pusku, mitja2512, Mldo, mnn2, nebidrag, neko_drugi, neutrino, nikola013, nixos, NklJov123, Nomica, novator, oldusername, Oscar2, Papadubi, Petarvu, Pewac21, pisac12, Plavi Jadran, Prečanin30, proka89, pzoca, raptorsi, Rebel Frank, romark, saki80, samocitam, Sass Drake, Sevatar, Siti2, Sonic, SpaDej, Sr.Stat., SRMk24, ssekir75, sspp, Tasman0081, tehnika, Teodor60, The_new_Statesman, TheDictator, tomo2, Totem, trpche, TTN, ulogovan, Vanderx, Vaske8990, vathra, Vatreni Zmaj, veljko82, vensla, Vlado82, Wehicle, x011, Yugol33, zemljanin, ZetaMan, zillbg, zixmix, zmajognjeniivan, zxstole, Žoržo