Q&A

  • 폴더안에 있는 이미지 불러오기

안녕하세요 델피언축에도 못 끼는 사람이지만 그래도 델파이가 좋아서
이렇게 하고 있습니다.
다름이 아니고 데이터베이스에 있는 필드에 폴더의 경로명을 넣고  폴더에
있는  이미지와 연관시켜 값을 QRimage로 뿌릴려고 하는데
방법을 모르겠네요
소스라도 조금 짜서 올려야 하는데 감이 오지 않아서요
이렇게 도움을 요청합니다.
정말 죄송합니다.
그럼 모두 고생하세요 감사합니다
3  COMMENTS
  • Profile
    델파이탐크루즈 2002.06.13 04:09
    이해가 되실지 모르겠지만

    제가 한것중에서 지울건 지우고 필요한 부분만 Copy하였놨습니다.

    보시고 모르시는 부분이 있으시면 다시 질문올려놓으세요..

    참고로 아래 소스는 Sql Server에 있는 특정 디렉토리에서
    특정화일을 가지고 와서 보여주고 출력하는 소스입니다

    지금 잘 쓰고 있는 프로그램입니다.

    허접한 소스라고 놀리지 마시길 바라며........

    열심히 하세요...

    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    var
      file_name, Dir_name, bmp_file :string;
      JPEGIMAGE: TJPEGImage;
      Bitmap: TBitmap;
    begin

      /////////////////////디렉토리검사///////////////////////////////////
      Try
        if FA_NMFTP(NMFTP_Dir) = true then             // 서버연결후 디렉토리 검사 목적...
        begin
          NMFTP_Dir.ChangeDir(Dir_name);
          if not DirectoryExists('c:Jpg_temp') then
          begin
            mkdir('c:Jpg_temp');
          end;

         Try
           NMFTP_Dir.Download(file_name,  'c:Jpg_temp' + file_name);
           ChDir('c:Jpg_temp');

           JPEGIMAGE := TJPEGImage.Create;
           Qr_null.Caption := '';
           try
             JPEGIMAGE.LoadFromFile(file_name);
             QRImage1.Picture.Graphic := JPEGIMAGE;
             QRImage1.Stretch := True;
           finally
             JPEGIMAGE.Free;
           end;

         except
            On E:Exception do
            begin
              Qr_null.Caption := '그림 파일이 존재하지 않습니다..!';
            end;
          end;
          NMFTP_Dir.Disconnect;
        end;
      except
          On E:Exception do
      end;
    end;

    procedure FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
      Action := CaFree;
    end;

    procedure QRBand3BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    var
      file_name,file_name1 :string;
    begin
      /////////////////////디렉토리검사///////////////////////////////////
      Try
        if FA_NMFTP(NMFTP_Dir) = true then             // 서버연결후 디렉토리 검사 목적...
        begin
          NMFTP_Dir.ChangeDir(GF_IMAGE_SIGN);
          if not DirectoryExists('c:Jpg_temp') then
          begin
            mkdir('c:Jpg_temp');
          end;
          file_name := NS_NS010F.Label24.Caption + '.BMP';  
          file_name1:= NS_NS010F.Label25.Caption + '.BMP';  
          Try
            if length(file_name) <> 4 THEN
            BEGIN
              NMFTP_Dir.Download(file_name,  'c:Jpg_temp' + file_name);
              ChDir('c:Jpg_temp');
              QRImage2.Picture.LoadFromFile(file_name);
            END;
            if length(file_name1) <> 4 THEN
          except
            On E:Exception do
          end;
          NMFTP_Dir.Disconnect;
        end;
      except
          On E:Exception do
      end;
    end;




  • Profile
    델무지초보 2002.06.13 23:24
    에휴~~ 죄송한데요
    전 ftp를 쓰는게 아니고요 움 그러니까 로컬에서 데이터베이스는
    acess를 쓰거든요 원래는 데이터베이스에 이미지를 넣어서 할려고
    했는데 그럼 좀 쉽쟎아요 그런데 무거워진다고 하니 어떤 특정폴더에
    이미지를 넣고 데이터베이스의 필드에 에 그경를 정하여 일치하면
    원하는 이미지를 가져와야 하거든요
    웹프로그램 할때는 쉬웠는데 델파이는 함수도 많이 모르겠고
    아직 vcl도 잘모르고 그래서 감이 잡히지 않습니다.
    기대에 부흥하지 못해서 미안합니다.
    왜 요즘 델파이정보처리 시험에도 나오는 텍스트파일을 가져오는건
    해봤는데 이미지는 어떤식으로 가져와야 할쥐
    더군다나 데이터베이스의 필드중 경로와 일치해서 가져와야 하니
    답답하네요
    시간이 많으면 이리저리 테스트를 해보면서 해보겠는데
    주어진 시간이 얼마남지 않아서 이렇게 고수님들을 귀챦게 하네요
    죄송합니다.



  • Profile
    델무지초보 2002.06.13 07:56
    이정도로도 황송하죠 ^^
    일단 고마우신 글에대해 실망하지 않게 최선을 다해 이해해 보겠습니다.
    그리도 이와같은 문제가 계신분이 계신다면 님께서 알려주신 내용을
    조금더 노력해서 전달하겠습니다.
    너무 감사합니다.