Изтегляне - данни от прозореца на DOS

Здравейте, срещнах проблем, ако някой знае да пише, благодаря предварително. Чрез командата: WinExec (PChar("rsh " +Edit1.Text+" -l "+Edit2.Text+" "+Edit3.Text), SW_SHOWNORMAL ); Изпращам заявка до устройството Cisco, в зависимост от командата определени данни се показват в прозореца на DOS и прозорецът на DOS се затваря. Ако някой се е сблъсквал с такава задача, кажете ми как да "прехвърля" информация от прозореца на DOS във формуляр, например в Memo, или например да запишете информация с изходни данни от прозореца на DOS на компютър, така че след това да могат да бъдат изтеглени от получения файл във формуляра. С уважение, Николай.

Доколкото си спомням, ако дадена команда изведе нещо на екрана - помощ, настройки и т.н., то в NT можеше да се направи пренасочване за изход, например към файл

това е всичко. И от файла вече четете както искате.

Ето пример за въвеждане на ред

/? Тази помощ /a Деактивира показването на символи с кодове 0 - 31 и 255. /ag Деактивира показването на псевдографични знаци. /e[ [:

]] Редактирайте посочения файл. /i Задайте малка (16x16) икона за прозореца на FAR конзолата. /p[

] Търсете "общи" плъгини в директорията, посочена от

. /u Позволява отделни настройки за различните потребители. /v Вижте посочения файл. Ако е -, данните се четат от stdin. /co Принуждава FAR да зарежда плъгини само от кеша. /x Деактивиране на обработката на изключения.

Много интересна опция, основното нещо работи, отлично, сега опитвам други опции, ако работят, ще напиша как иначе мога да разреша този проблем.

Вижте http://www.renderman.ru/forum/download.php/1,336,24/FoxUtils.txt Използвайте така: uses FoxUtils; var MyChild: TChildProc; MyChild := TChildProc.Create(EXEFileName, ParamStr); и след това ReadStrFromChild WriteToChild

Бележки от мен:

1) пътят до файла трябва да бъде посочен изцяло 2) низовете се връщат в DOS кодиране, необходимо е повторно кодиране

procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := GetDosOutput("c:\winnt\system32\rsh.exe"); OemToChar(PChar(s), pChar(s)); покажи съобщение(а); край;

>Бележки от мен:

>1) пътят до файла трябва да бъде указан изцяло >2) низовете се връщат в DOS кодиране, необходимо е повторно кодиране

>procedure TForm1.Button1Click(Sender: TObject); >var > s:низ; >начало > s := GetDosOutput("c:\winnt\system32\rsh.exe"); > OemToChar(PChar(s), pChar(s)); > покажи съобщение(а); >край;

Да, това исках да постигна. Благодаря на всички за изчерпателните отговори, особено на AndrewVolkov, споделяш много полезна информация. Много благодаря на всички.

можете, разбира се, към файл, но съдейки по отговора, той ще работи само за NT системи.

Второ, защо да извеждате файл, за да го прочетете отново по-късно. по-добре е да го прочетете програмно.

---