Архив форумов ЦИТФорума

[Константин]

Скажите, как в CBUILDER, зная текстовый адрес компа, получить IP номер?
Может в WINDOWS API есть такая возможность?

[ilya]

Может и есть...
Но можно послать 'РING name'
в ответе получишь Replay from ...ip
Перенаправь РING в текстовый файл и считай оттуда...
Чем богаты....

[ilya]

void FPE Ping(HWND myWin,HWND VtsWin,WORD wParam,LONG lParam)
{
char *pParam,*p;
STARTUPINFO StartupInfo;
PROCESS_INFORMATION ProcessInformation;
char strPING[100];
char strLine[100];
char strLine1[300];
char Address[200];
char strName[500];
int NumUUT;
// BYTE bVk ;
// BYTE bScan;

// DWORD status;
HANDLE hProcessHC;
HANDLE hThreadHC ;

FILE* batFile;

FILE* logFile;

HWND mWin = (HWND)NULL;
RECT rect;

char pingFALE;

rect.top = 10;
rect.left = 13;
rect.right = 45;
rect.bottom = 18;

pParam = (char FAR *)lParam;

/////////////////////////////////////////////////////////.. = strtok(pParam,","); // UUT Num
if(p == NULL)
{
BuildErr("OTHER","BAD_PARAM","1","");
dsperr(DEFAULT,"Wrong Name fun.'Ping'");
return;
}
NumUUT=atoi(p)-1;
GetActualUUTStatus();
if ((arrStatusUUT[NumUUT] == UUT_NOT_EXIST) || ((arrStatusUUT[NumUUT] == UUT_FAIL) && FlagStopOnFail))
return; // if not PASS not run !
mWin=MsgWin(NULL,"Please wait...","Ping",&rect);

///////////////////////////////////////////.. = strtok(NULL,","); // Address
if(p == NULL)
{
BuildErr("OTHER","BAD_PARAM","1","");
dsperr(DEFAULT,"Wrong Address fun.'Ping'");
return;
}
strcpy(Address,p);
strcpy(strPING,"ping ");
strcat(strPING,Address);
strcat(strPING,"c:\\ping.log\n");
b.. = fopen("c:\\pingrun.bat","w+t");

fwrite(strPING,sizeof(char),50,bat.. = SW_MINIMIZE ;
if (!CreateProcess(NULL,"c:\\pingrun.bat",NULL,NULL,FALSE,0,NULL,NULL,
&StartupInfo,&ProcessInformation))

MessageBox(NULL,"ERROR EXEC PROGRAM","ERROR",MB_OK|MB_ICONERROR);

Sleep(10000);


// bVk = 0x0D;// Pushing Enter
// bScan = MapVirtualKey(bVk,0);
// keybd_event(bVk,bScan,KEYEVENTF_EXTENDEDKEY,.. = ProcessInformation.hProcess;
hThreadHC = ProcessInformation.hThread;

CloseHandle(hThreadHC);
CloseHandle(.. ((logFile = fopen("c:\\ping.log","r+t")) != NULL)
{
pingFALE = 1;
strcpy(strLine1,"");
while(!feof(logFile))
if(fgets(strLi.. time"))
pingFALE = 0;
}
fclose(logFile);
CloseWin(mWin);
sprintf(strName,.. to %s UUT%d",Address,NumUUT+1);
if(pingFALE)
FormResult("0",strName,"FALSE","","");
else
FormResult("0",strName,"TRUE","","");

DeleteFile("c:\\ping.log");.. open file c:\\ping.log !!!");
DeleteFile("c:\\pingrun.bat");
}

}

[Adil]

WinAPI функция gethostbyname - правда возникают проблемы с русскими названиями серверов (есть любители давать такие . Я здесь вешал вопрос, какая кодировка ей нужна - глухо, как в танке