Помогите переделать с Делфи 7 на С#

[Chrome-kz]

Здравствуйте
Помогите пожалуйста, не получается переделать из делфи на с# ((

Или хотя бы покажите как это делается ((

вот код

function  CreateSpeech:HResult;stdcall;external 'SAPIDLL.DLL' name 'CreateSpeech';
procedure DestroySpeech;stdcall;external 'SAPIDLL.DLL';
procedure Speak( Text : string);stdcall;external 'SAPIDLL.DLL';
procedure SelectEngine(EngineName: String);stdcall;external 'SAPIDLL.DLL' name 'SelectEngine';
function  GetEngineInfo(EngineName: String; var Info: TEngineInfo):byte;stdcall;external 'SAPIDLL.DLL';
function  GetEngines:TStrings;stdcall;external 'SAPIDLL.DLL' name 'GetEngines';
function  GetEnginesCount:word;stdcall;external 'SAPIDLL.DLL';
function  GetPitch: Word;stdcall;external 'SAPIDLL.DLL';
function  GetSpeed: dword;stdcall;external 'SAPIDLL.DLL';
function  GetVolume: dword;stdcall;external 'SAPIDLL.DLL';
procedure SetPitch(const Value: Word);stdcall;external 'SAPIDLL.DLL';
procedure SetSpeed(const Value: dword);stdcall;external 'SAPIDLL.DLL';
procedure SetVolume(const Value: dword);stdcall;external 'SAPIDLL.DLL';
function  GetMaxPitch: Word;stdcall;external 'SAPIDLL.DLL';
function  GetMaxSpeed: dword;stdcall;external 'SAPIDLL.DLL';
function  GetMaxVolume: dword;stdcall;external 'SAPIDLL.DLL';
function  GetMinPitch: Word;stdcall;external 'SAPIDLL.DLL';
function  GetMinSpeed: dword;stdcall;external 'SAPIDLL.DLL';
function  GetMinVolume: dword;stdcall;external 'SAPIDLL.DLL';
Procedure Pause;stdcall;external 'SAPIDLL.DLL';
Procedure Resume;stdcall;external 'SAPIDLL.DLL';
Procedure Stop;stdcall;external 'SAPIDLL.DLL';
procedure PSpeak( Text: LPCTSTR );stdcall;external 'SAPIDLL.DLL';
procedure PSelectEngine(EngineName: LPCTSTR);stdcall;external 'SAPIDLL.DLL';
procedure PSelectEngineNumber(EngineNumber: word);stdcall;external 'SAPIDLL.DLL';
function  PGetEngines( number : word):LPCTSTR;stdcall;external 'SAPIDLL.DLL';
procedure RegistOnStart(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnPause(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnResume(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnStop(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnUserStart(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnUserStop(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnPosition(CallbackAddr: TPositionEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnSpeed(CallbackAddr: TPositionEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnVolume(CallbackAddr: TPositionEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnPitch(CallbackAddr: TPositionEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnSelectEngine(CallbackAddr: TEngineEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnStatusChange(CallbackAddr: TSpeechEvent);stdcall;external 'SAPIDLL.DLL';
procedure RegistOnError(CallbackAddr: TErrorEvent);stdcall;external 'SAPIDLL.DLL';

и этот

begin
  if CreateSpeech = 0 then // Для инициализации необходимо вызвать CreateSpeech из SAPI_DLL.Dll
  begin // если результат 0 значит все Ок
    Engines := GetEngines; // GetEngines возвращает список найденых дикторов на вашем компьютере
    ComboBox1.Items.Clear; // результат типа TString(список строк), в каждой строке имя очередного диктора
    for ECount := 0 to Engines.Count - 1 do // помещаем имена дикторов из полученого списка в строки ComboBox1
      ComboBox1.Items.Add(Engines[ECount]);
    ComboBox1.ItemIndex := 0; // в окно ComboBox1 выводим имя первого из дикторов

[Chrome-kz]

хотя бы второй код помогите перевести пожалуйста

[Streletz]

Помогите пожалуйста, не получается переделать из делфи на с#

А, зачем?
Смотрите в сторону работы с MS Speech API в C#.

[eval]

да оно не надо ему, только для галки, вот думает по скорому отчитаться

[Chrome-kz]

Сообщение от eval

да оно не надо ему, только для галки, вот думает по скорому отчитаться

Было бы для галки, я был был бы рад )
А так надо чтоб работало.

1 кусок перерыл, вроде все подключает и упирается во второй... а я не могу сам перевести из делфи в с# (( вот и прошу помощи ((

[WorldMaster]

Вот тут примеры есть работы с библой в шарпе.

[Bagir]

Я тоже пытаюсь разобраться и переделать на VB6. Все пучком и отлично работает кроме получения позиции чтения.
procedure RegistOnPosition(CallbackAddr: TPositionEvent);stdcall;external 'SAPIDLL.DLL';
Может правда кто подскажет