盒子论坛 v2.1

哪个兄弟能帮我把以下C++代码转为DELPHI

FILE *file=NULL;
...
void CALLBACK MyDownloadProc(const void *buffer, DWORD length, void *user)
{
    if (!file) file=fopen("afile.mp3", "wb"); // create the file
    if (!buffer) fclose(file); // finished downloading
    else fwrite(buffer, 1, length, file);
}

谢谢啦！
----------------------------------------------
-

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2019/7/19 11:03:44

1楼：

在用 BASS 库的回调函数吗？
我在程序中用的
procedure MyDownloadProc(Buffer: Pointer; Len: DWORD; User: Pointer);
{$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
  if (Buffer <> nil) and (Len <> 0) then
  begin
    OutStream.WriteData(Buffer, Len);
  end;
end
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2019/7/19 20:53:23

2楼：

en,怎么感觉不一样？我主要是想要录制在线的声音，去bass的论坛里面说的是要用download pro 的函数，所以在bass.chm里面找具体文件，他是是么说的。
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2019/7/19 21:39:33

2楼：

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2019/7/23 20:46:27

3楼：

有兄弟知道吗？
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2019/9/3 21:29:25

4楼：

有兄弟知道怎么翻译吗？
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2020/2/17 22:51:08

5楼：

求帮助
----------------------------------------------
-

作者：

mefuleu (阿奇)	★☆☆☆☆	-
	普通会员

2020/2/18 10:54:36

6楼：

上边的哥们都说的很清楚了;

(*
FILE *file=NULL;
void CALLBACK MyDownloadProc(const void *buffer, DWORD length, void *user)
{
    if (!file) file=fopen("afile.mp3", "wb"); // create the file
    if (!buffer) fclose(file); // finished downloading
    else fwrite(buffer, 1, length, file);
}
*)
var
  fs:TFileStream=nil;
procedure MyDownloadProc(buffer:Pointer;Length:DWORD;user:Pointer);stdcall;
begin
   if (fs=nil) then
   begin
      if not FileExists('afile.mp3') then
      begin
          fs:=TFileStream.Create('afile.mp3',fmCreate);
          fs.Free;
      end;
      fs:=TFileStream.Create('afile.mp3',fmOpenReadWrite OR fmShareDenyNone);
      fs.Seek(0,soEnd);
   end;
   if buffer=nil then
   begin
      fs.free;
      fs := nil;
   end else
   begin
      fs.WriteBuffer(buffer^,Length);
   end;
end;
----------------------------------------------
-

作者：

mefuleu (阿奇)	★☆☆☆☆	-
	普通会员

2020/2/18 10:58:49

7楼：

自己看例子:
bass2414\delphi\netradio
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2020/3/4 21:28:23

8楼：

楼上的兄弟，我是想要实现定时录音的功能，单单录音功能没问题，已经实现了啊
----------------------------------------------
-

信息

登陆以后才能回复