(和分類標題一樣,寫的很菜的,請多多包含指點啊)
說明:偏移offset處開始,讀取size大小的內容到memorystream中,
(這是目前bass的版本,老版本沒試過,呵呵)
function bas**p3(wdf: string; offset,size: longword; mem: boolean): boolean;
var fs: tfilestream;
f: pchar;
volume: integer;
p: pointer;
begin
volume := 40;
if (mem) then
begin
bass_free; //free first;
freeandnil(***ms);//freeandnil(ms);
fs := tfilestream.create(wdf,fmopenread,fmsharedenynone);
fs.seek(offset,sofrombeginning);
***ms := tmemorystream.create;//ms := tmemorystream.create;
***ms.copyfrom(fs,size);//ms.copyfrom(fs,size);
p := ***ms.memory;//p := ms.memory;
freeandnil(fs);
bass_init(1,22050,0,0,nil);//if bass_init(1,22050,0,0,nil) then logs('init ok') else logmsg('init failed');
bass_setvolume(volume);//if bass_setvolume(volume) then logs(format('volume set to %d',[volume])) else logmsg('set volume failed');
hbs := bass_streamcreatefile(mem,p,0,size,bass_stream_autofree);
bass_channelplay(hbs,false);//if (bass_channelplay(hbs,false)) then logs('play failed') else logs('playing...');
//while (bass_) do bass_channelplay(hbs,false);
endend;
leetcode520 py解字串真是太殘暴了
給定一個單詞,你需要判斷單詞的大寫使用是否正確。我們定義,在以下情況時,單詞的大寫用法是正確的 全部字母都是大寫,比如 usa 單詞中所有字母都不是大寫,比如 leetcode 如果單詞不只含有一個字母,只有首字母大寫,比如 google 否則,我們定義這個單詞沒有正確使用大寫字母。示例 1 輸入 ...
我真是太有才了
我真是太有才了 和她走在未名湖畔,又一次用手玩弄她的頭髮,她問為什麼總是喜歡搗弄她的頭髮,還說要剪短髮,突然就利用頭髮忽悠她起來 我問她 你知道為什麼我喜歡抓你長髮麼 她說 不知道哦 我說 因為長髮是一個弱點,我給你講一個故事 她說 好啊 故事是關於 八大門派是如何產生的 臨時杜撰 八大門派原先是八...
2014 10 23 真是太不方便了
想買把小刀,放在辦公室,削水果的。本有一把,但是不太好用 家裡也其實有富餘的,但是怕公共交通工具上不讓攜帶,於是決定到辦公室附近的超市買。今天中午專門跑超市去了一趟,先走到賣廚具的地方,有筷子 勺子 鏟子啦什麼的,沒有刀。又走回頭路,轉到以前買這類東西的地方,以為是自己錯過了,還是沒有。找到一個服務...
研究了一下某網貸的貸款利率,真是太可怕了。。。
該網貸名義上利率也非常高,不過沒超過24 這部分完全合法。但。關鍵在手續費。最高可達10 到20 所以整個算下來實際利率遠遠超過36 了。所以不到萬不得已千萬別隨便找網貸。另外信用卡分期的實際利率也不低。信用卡分期一般是聲稱無利率的。但是有手續費的。貓膩就在手續費上。如果是分期支付手續費,根據手續費...
除了負載均衡,Nginx 能做的真是太強大了!
2020年04月09日 星期四 一 靜態 二 負載均衡 三 限流 四 快取 五 黑白名單 nginx應該是現在最火的web和反向 伺服器,沒有之一。她是一款誕生於俄羅斯的高效能web伺服器,尤其在高併發情況下,相較apache,有優異的表現。那除了負載均衡,她還有什麼其他的用途呢,下面我們來看下。一...