Q&A

  • 퀘리를 이용한 이미지 경로를 저장및 불려오는방법...
디비는 파라독스구여
필드형은 A 입니다
image폴더에 이미지가 있고
쿼리를 날려 그 경로를 저장 하고 불려오기 할때
코딩 방법좀 가려켜 줘여
open
이미지 경로를 저장 할때......
a:=오른다이얼로그를 이미지 경로...
b:=오른다이얼로그를 이미지 경로...

with query2 do begin
    close;
    sql.Clear;
    sql.add('insert into date(needle,needle90)');
    sql.add('values('''+a+''','''+b+''')');
    execsql;
  end;

image1 에 이미지 불려 올때........
Image1.Picture.LoadFromFile(Query.FieldByName('IMAGE_PATH').AsString);
2  COMMENTS
  • Profile
    Galaxy 2003.09.29 22:07
    반갑습니다.
    수고 많습니다.
    파라독스는 잘모르겠습니다.
    SQLServer 7.0 입니다.
    ------이미지 오픈-----
    if OpenPictureDialog1.Execute then
      begin
      Label14.Caption:=OpenPictureDialog1.FileName;
      Label15.Caption:=OpenPictureDialog1.FileName;
      Image1.Picture.LoadFromFile(Label8.caption);
      end;

    -------- save--------
    with query2 do
           begin
           close;
           sql.Clear;
           sql.add('insert into date(needle,needle90)');
           sql.add('values(:pNeedle, :pNeedle90)');
      ParamByNAme('pNeedle' ).asstring:=Lowercase(Label4.caption);
      ParamByNAme('pNeedle90' ).asstring:=Lowercase(Label5.caption);
           execsql;
           end;

    ------- select -------
    with query2 do
           begin
           close;
           Sql.Clear;
           Sql.Add('select * from Date');
           Open;
           label14.caption:=FieldByNAme('needle' ).asstring ;
           label15.caption:=FieldByNAme('needle90' ).asstring ;

           if FileExists(Label14.caption) then
              Image1.Picture.LoadFromFile(Label14.caption)
           else
                Image1.Picture:=nil;

          if FileExists(Label15.caption) then
             Image2.Picture.LoadFromFile(Label15.caption)
          else
              Image2.Picture:=nil;
           close;
           end;
    ***********************************************************

  • Profile
    Galaxy 2003.09.30 05:33
    죄송합니다.

        Image1.Picture.LoadFromFile(Label14.caption); <===오타 수정
        Image2.Picture.LoadFromFile(Label15.caption); <===오타 수정
             //오타 수정
             ParamByNAme('pNeedle' ).asstring:=Lowercase(Label14.caption);
          //오타 수정
          ParamByNAme('pNeedle90' ).asstring:=Lowercase(Label15.caption);