|
Платные хостинги
Раскрутка сайта
Книги по программированию
WinAPI-набор номера., WriteFile
- Я хочу использовать функцию WriteFile. Но выдается сообщение о несоответствии типов в четвертом или пятом параметре, а может это относится ко все функции.А может у кого есть другие способы набора номера через модем - буду признателен.Вот код, который я хочу использовать.---***---VarhCommFile : THandle;procedure TForm1.Button1Click(Sender: TObject);varPhoneNumber : string;CommPort : string;NumberWritten : LongInt;beginPhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;CommPort := 'COM2';{Open the comm port}hCommFile := CreateFile(PChar(CommPort),GENERIC_WRITE,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);if hCommFile=INVALID_HANDLE_VALUE thenbeginShowMessage('Unable to open '+ CommPort);exit;end;{Dial the phone}NumberWritten:=0;if WriteFile(hCommFile, PChar(PhoneNumber)^, Length(PhoneNumber), NumberWritten, nil) = false then beginShowMessage('Unable to write to ' + CommPort);end;end;procedure TForm1.Button2Click(Sender: TObject);begin{Close the port}CloseHandle(hCommFile);end;
- А вот это что PChar(PhoneNumber)^- если нужен PChar- то и пишите PChar(PhoneNumber), а ^ не надо.
- Да нет, тут всё правильно, сам по себе PChar - указатель, а вот та запись как раз и определяет не указатель а содержимое.
- может нил не принимает
- А может быть попробовать другим способом: используя TAPI-функции...
- Дельфи какая ?
- А ты случайно не с книжки "Советы программстов" (Издательство Символ, под редакцией В. Озерова) списывал этот пример
- Если нет, то разберись со следующей функцией:function tapiRequestMakeCall(DestAddress: PChar; AppName: PChar; CalledParty: PChar; Comment: PChar):longint; stdcall; external 'TAPI32.dll';DestAddress - телефонный номерAppName - PChar(Application.Title)Остальное существенно не влияет на набор номера...P. S.Если очень нужно, то могу написать TAPI ошибки и TAPI константы.
- NumberWritten: Cardinal;
- И вместо nil, надо 0.Это для D7
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
