- 博客(7)
- 资源 (2)
- 收藏
- 关注
原创 DELPHI实现摄像头拍照
procedure Tfrm1.Button2Click(Sender: TObject);Var jpeg: TJPEGImage; bmp: TBitmap; MyStm:TMemoryStream; strfilename,strcard:String;begin inherited; strfilename:=extractfilepath(Application.ExeNam
2004-11-20 17:11:00 6855 2
原创 用delphi批量导入某子目录下所有JPG图片文件到数据库
//保存图片到数据库function imagesavetosql(dataset:TQuery;filename:String):boolean;var imagejpg:TJPEGImage; //jpg图片 MyStm:TMemoryStream;begin result:=false; MyStm:=TMemoryStream.Create; imagejpg:=Tjpegima
2004-11-20 16:36:00 1897 2
原创 《多情恨》素材之十二
我知道我早已知道你终有一天会离去你的离去是为了--------为了和以前的心相聚我时常面带微笑地和你相处一种异样的微笑这一天终于来到的时候我依然面带微笑和往常一样其实我肝肠寸断--------------------------------写于1998年-1999年献给一位梁姓女孩
2004-11-09 10:44:00 879
原创 崂山之游
1998/11/28 在青岛出差中,闲来无所事事,就想起看看崂山。 崂山很大,据旅馆老板说,至少有三处不同的售票处,每处的景色也不同,记得从北面一处进入的。 1995年毕业以来,一直到1998年,我都在为糊口而在艰难地奔波着,所以心情不是太好。但登到半山腰后,发现景色不错。 回头一望,满山遍野全被绿色所覆盖,绿色
2004-11-09 10:39:00 1363
原创 大海
(1998/11/14 沿青岛五四广场步行至火车站) 终于见到梦寐以求的大海。“乱石穿空,惊涛拍岸,卷起千堆雪” 生活中不应只看到灰色或者黑色,更应看到绿色。 忙里偷闲,享受生活,人生才会意义,且更有意义
2004-11-09 10:24:00 961
原创 《不倒翁》
任何挫折都没有把我击倒任何磨难也没有把我压垮一次次沉沦过后我更加斗志激昂我象一只精灵一只黑色的精灵翱翔在天地之间因为我相信是鹰真正的鹰终会有一天它能击破长空
2004-11-09 10:07:00 1048
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人