如何将一个目录下的多个.gif图片存入数据库中.

Question

数据库是sql 2000 ，表名是tbl_njy，里面有两个字段，一个是name varchar(20),一个是image image.如果不行的话改表的结构也可以。

Answer 1

你想要什么？？源程序？？？？这样问题可以分两部分，一部分是对目录文件的搜索，找出相应文件第二个部分就是对图片进行入库操作，这两个部分以前都回答烂了....你找一下好不好？？去大富翁上下载个dfw.chm离线包，包你找到答案程序还是要自己作的好，对你是个锻炼，要不以后怎么在软件行业混呀你

Answer 2

晕，我看了最近的300篇还没有找到我要的，dfw.chm哪里有得下。

Answer 3

http://mydelphi.8u8.com/wd3.htmhttp://member.netease.com/~opig/down/dfw.chmhttp://www.pcolive.com/cgi-bin/cgi-bin/view.cgi?forum=34&topic=45用Google搜“dfw.chm 下载”一找一大堆

Answer 4

首先先獲取目錄下的文件列表
var 
GFileNameList:StringList; //保存文件列表
const cPICTURE_FORMAT='*.gif';procedure TForm1.LoadFilelist;
var
  sr:TSearchRec;
  Path:String;
  Fund:integer;
begin
   Path:='你的圖片目錄'
   try
     Fund:=FindFirst(path+cPICTURE_FORMAT,0,Sr);
     while Fund=0 do
           begin
             GFileNameList.add(Sr);//保存目錄下的文件名列表
             Fund:=Findnext(sr);
           end;
   Finally
       Findclose(sr);
   end;
end;保存文件到SQLServer
procedure TForm1.Button1Click(Sender: TObject);
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.LoadFromFile(FileName);
str.Position:=0;
adoquery1.Append;
Tblobfield(adoquery1.FieldByName('tt')).loadfromstream(str);
try
adoquery1.Post;
finally
str.Free;
end;
end;
讀取文件
procedure TForm1.Button2Click(Sender: TObject);
var str:Tmemorystream;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(adoquery1.FieldByName('PIC')).savetostream(str);
str.SaveToFile('F:\page.GIF');
str.Free;
end;

Answer 5

可是我在这里通不过去
首先先獲取目錄下的文件列表
var 
GFileNameList:StringList; //保存文件列表
const cPICTURE_FORMAT='*.gif';

Answer 6

hehe^^ 这就对了自己学习感受颇多哦自己先试，有过不去的地方大家再讨论

Answer 7

//===========================获取指定目录下的文件名称=========================//
function GetDirFile(TypeName: String; DirName: String):TStringList;
{  返回值为字符串列表  }
var
  sr: TSearchRec;
  FileAttrs: Integer;
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  DirName := GetDirName(DirName);
  FileAttrs := faAnyFile;
  if FindFirst(DirName + TypeName, FileAttrs, sr) = 0 then
  begin
    repeat
      if (sr.Attr and FileAttrs) = sr.Attr then
        StrList.Add(sr.name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  Result := StrList;
//  StrList.Free;
end; { GetDirFile }这是我写的也常用的一个没有问题下面是使用方法：procedure TForm1.Button1Click(Sender: TObject);
var
  tempStr: TStringList;
begin
  tempStr := TStringList.Create;
  tempStr := GetDirFile('*.pas', 'E:\MyProgramTest\temp');
  Memo1.Lines.Add(tempStr.Text);
  tempStr.Free;
end;

Answer 8

其实这个函数改成这样好//===========================获取指定目录下的文件名称=========================//
procedure GetDirFile(TypeName: String; DirName: String; var StrList: TStringList)
{  返回值为字符串列表  }
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  DirName := GetDirName(DirName);
  FileAttrs := faAnyFile;
  if FindFirst(DirName + TypeName, FileAttrs, sr) = 0 then
  begin
    repeat
      if (sr.Attr and FileAttrs) = sr.Attr then
        StrList.Add(sr.name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  Result := StrList;
end; { GetDirFile }用时：
procedure TForm1.Button1Click(Sender: TObject);
var
  tempStr: TStringList;
begin
  tempStr := TStringList.Create;
  GetDirFile('*.pas', 'E:\MyProgramTest\temp', tempStr);
  Memo1.Lines.Add(tempStr.Text);
  tempStr.Free;
end;这样好，hehe^^ 那个函数是早以前写的.....