字體：小 中 大 |
|
|
|
| 2017/05/23 17:31:38瀏覽73｜回應0｜推薦0 | |
stm1:TMemoryStream;
buf:^byte;
pb1:^byte;
st1:string[255];
getmem(buf,1024);
pb1=buf;
inc(pb1,10);
setlength(st1,255);
move(buf^,st1[1],255);
stm1:=TMemoryStream.create;
stm1.WriteBuffer(buf^,sizeof(buf));
stm1.Position:=0;
blockwrite(f1,buf^,,sizeof(buf));
jpeg1.LoadFromStream(stm1);
|
|
| ( 心情隨筆｜心情日記 ) |
