Procedure DragDropFiles(Var message: TMessage); Message WM_DropFiles; Procedure Tfm_main.DragDropFiles(Var message: TMessage); Var p: Array[0..254] Of char; i: word; Begin Inherited; i := DragQueryFile(Message.wParam, $FFFFFFFF, Nil, 0); For i := 0 To i - 1 Do Begin D...[ 查看全文 ]
编写的把文件的内容写入到数据库的代码如下 首先 建立 数据库表 id char data image(注意此处不要用text类型 text类型与binary不兼容) 代码如下: import java.io.*; import java.sql.*; public class Db { public static void main(String[] args) { Db ac = new Db(); String blobname = "D:\\test1.txt"; //blob文件名 String in = "insert into "; String in1 = &q...[ 查看全文 ]