ファイルから更新日時を取得し、テキストに更新日時を格納する為には (ID:34393)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

igyさん早速ありがとうございます、
値は以下になります。

＞ドロップしたファイル名
C:\Documents and Settings\XXX\デスクトップ\試し\35.JPG
更新日時  2008年12月22日、15:53:28

＞igyさんへの返答部分
filename                    ：→Char型のまま値を取得する方法が判りませんでした・・・
strpas(filename)            ：C:\Documents and Settings\XXX\デスクトップ\試し
fileage(strpas(filename))  ：1899/12/29

になります。
ファイル名の取得が出来てないですね・・・
ミスっぽい・・・；

＞エラーが出る部分のデータベースに登録された値
フォルダ名(Field名場所)  C:\Documents and Settings\XXX\デスクトップ
ファイル名  試し
更新日時    2009/05/06 12:12:00（何故か、一つ前の正常に登録されているファイルの更新日時が入ってる）

＞別の登録方法で、同じファイルを正常に登録されたデータベースの値です。
フォルダ名(Field名場所)  C:\Documents and Settings\XXX\デスクトップ\試し
ファイル名  35.jpg
更新日時    2008/12/22 15:53:28

どうやら、自分のバグですね・・・
何故正常稼動していた旧ソフトまでが動かなくなったのは謎ですが・・・

＞異常があるドラックドロップのコードです

変数一覧
var
    s:string='';//画像表示格納変数
    s1:string='';//デジカメカードのフォルダ名格納変数
    s2:string='';//画像の保存先の大元フォルダ名
    s3:string='';//画像ファイル名格納変数
    s4:string='';//画像フォルダ名格納変数
    s5:string='物件名';//一時格納変数フォルダ名用
    s6:string='フォルダ名';//復元サブフォルダ名格納変数
    s7:string='';//復元先フォルダ名格納変数ドラックドロップ時用
    s8:string='';//復元先フォルダ名格納変数自動格納部分用
    x1,y1,x2,y2:integer;//座標変数
    count1:integer=0;//画像ファイル最大数記録用
    count2:integer=0;//復元ファイル数記録用変数
    sw1:boolean=false;//ドライブ見つかった時用フラグ
    sw2:boolean=false;//座標取得フラグ
    sw3:boolean=false;//画像無いとき初期化フラグ
    sw4:boolean=false;//画像非表示フラグ

＞エラーの出るドラックドロップ部分(書いてからバグで止まってしまっているので、動作未確認の部分でバグが沢山ある筈と思います)
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  FileName: array [0..255] of Char;
  I, Num: Word;
begin
  DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
  s8 := strpas(FileName) + '\';
  form12.ShowModal;//ドロップしたファイル一覧のプリヴューウインドウ表示
  if InputQuery('写真の物件名を', '入力してください', s5) then
  else
    exit;

Num := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
    with datamodule7.table1 do begin
      last;
      edit;
      s4 := inttostr(FieldByName('ナンバー').AsInteger + 1);

if not directoryexists(s2 + '\' + s4) then //指定したフォルダがないか検索
        createdir(s2 + '\' + s4) else begin end;   //無ければ作る

for I := 0 to Num - 1 do begin
        DragQueryFile(Msg.Drop, I, FileName, SizeOf(FileName));

FieldByName('フォルダ名').AsString := s2 + '\'+ s4;
        FieldByName('ファイル名').AsString := extractfilename(strpas(FileName));
        FieldByName('ナンバー').AsString := S4;
        FieldByName('撮影日時').AsString := datetimetostr(FileDateToDateTime(fileage(strpas(filename))));//問題の部分
        FieldByName('物件名').AsString := s5;
        FieldByName('場所').AsString := extractfiledir(strpas(filename));
        post;

copyfile(filename,allocpchar(s2 + '\'+ s4 + '\' + extractfilename(filename)), false);

Append;
      end;
    end;
   DragFinish(Msg.Drop);
  s5 := '物件名';
end;

＞正常に動いている、自動認識で画像を取り込んでいる部分（Field部分を変更する以前に書き、動作も確認していました。
＞Field変更後、先ほど正常動作を確認しました）

＞画像のデータベース登録処理（正常動作部分）
＞タイマーイベントでデジカメカードを認識させてから、下記のブロックを実行させます。
procedure TForm1.autosetClick(Sender: TObject);
var
  sr:TSearchRec;
  res:integer;
begin
  if not sw1  then
    exit;
  //デジカメカード認識時処理
  with datamodule7 do begin
     try
      if not directoryexists(s2 + '\' + s4) then //指定したフォルダがないか検索
      createdir(s2 + '\' + s4) else begin end;   //無ければ作る
      res := findfirst(s1 + '\*.JPG',faAnyfile,sr); //ファイル検索開始

table1.edit;
      while res = 0 do
      begin

table1.FieldByName('フォルダ名').AsString := s2 + '\'+ s4;
        table1.FieldByName('ファイル名').AsString := sr.Name;
        table1.FieldByName('ナンバー').AsString := S4;
        table1.FieldByName('撮影日時').AsString := datetimetostr(FileDateToDateTime(fileage(S1 + '\' + sr.Name)));
        table1.FieldByName('物件名').AsString := s5;
        table1.FieldByName('場所').AsString := s7 + '\' + s5;

table1.post;
        table1.Append;
        copyfile(allocpchar(S1 + '\' +sr.name),allocpchar(s2 + '\'+ s4 + '\' + sr.name), false);
        res := findnext(sr);

end;

findclose(sr);
    except

end;
    StrDispose(ps);
    s5 := '物件名';
  end;

end;

になります。

改めて自分のコード見ると、書き込みミスや勘違い設定が多いですね・・・；
かなりの長文になってしまい恐縮ですが、よろしくお願いしますｍ（＿＿）ｍ。

←解決時は質問者本人がここをチェックしてください。

戻る