C 的程式片段用Delphi改寫

發文回覆瀏覽次數：1617

推到 Plurk!

推到 Facebook!

尚未結案

minghsen
一般會員

發表：1
回覆：0
積分：0
註冊：2007-03-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-07-20 15:11:35

IP:60.248.xxx.xxx 訂閱

各位先進們
最近需要把一段C 所寫的程式，用DELPHI 改寫，只是實在是不了解C，懇請先進們可以指點，或是告訴我該從何處下手。
程式片段如下。謝謝各位。
==================================================

#include
#include
#include

#define DllImport __declspec( dllimport )

DllImport int stnrec( char *url,char *fname );
DllImport unsigned long GetRecBytes();
DllImport void StopRecord();
DllImport int GetRecError();

#define ERR_FILE_OPEN -1
#define ERR_MP3_FORMAT -2
#define ERR_TCP_DISCON -3
#define ERR_FMT_NOSUPPORT -4
#define ERR_WMA_FORMAT -5

#define ERR_TCP_INIT -100
#define ERR_STOP -101

DWORD WINAPI IR_Record( void *para );

static char url[512],fname[256];

int __cdecl main( int argc,char *argv[] )
{
HANDLE hd;
DWORD dwThreadID;

if( argc < 3 ) {
printf( "use : stnrec url rec_file_name\n" );
return 0;
}

strcpy( url,argv[1] );
strcpy( fname,argv[2] );

hd = CreateThread( NULL,0,IR_Record,NULL,0,&dwThreadID );

Sleep( 20000 );

StopRecord();
Sleep( 1000 );
printf( "record : %d bytes\n",GetRecBytes() );

return 0;
}

DWORD WINAPI IR_Record( void *para )
{
stnrec( url,fname );

return 0;
}
=====================================================

系統時間：2024-04-20 4:37:39

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！