|
Posted by nick on June 28, 2006, 6:24 am
If you were Registered and logged in, you could reply and use other advanced thread options
Iam creating a tsp in delphi. The problem is to set the device name.
I have got the source to set the name. but it is in 'C'. can anyone
help
to convert this code into delphi or provide some suggestion to set the
name
LONG TSPIAPI TSPI_lineGetDevCaps(DWORD dwDeviceID,DWORD dwTSPIVersion,
DWORD dwExtVersion, LPLINEDEVCAPS pldc)
{
LONG tr-0;
const wchar_t szProviderInfo[]=L"WAVE Service provider";
const wchar_t szLineName[]=L"WaveLine";
pldc->dwNeededSize=sizeof(LINEDEVCAPS) + sizeof(szProviderInfo) +
sizeof(szLineName);
if(pldc->dwNeededSize<=pldc->dwTotalSize)
{
pldc->dwUsedSize=pldc->dwNeededSize;
pldc->dwProviderInfoOffset=sizeof(szProviderInfo);
wchar_t* pszProviderInfo=(wchar_t*)((BYTE*)pldc +
pldc->dwProviderInfoOffset);
wcscpy(pszProviderInfo,szProviderInfo);
pldc->dwLineNameSize=sizeof(szLineName);
pldc->dwLineNameOffset=sizeof(LINEDEVCAPS)+sizeof(szProviderInfo);
wchar_t* pszLineName=(wchar_t*)((BYTE*)pldc+pldc->dwLineNameOffset);
wcscpy(pszLineName,szLineName);
}
}
Thanks in Advance
| 
Yahoo! 
Google 
Windows Live 
del.icio.us 
digg 
Netscape 
XML site map