안녕하세요 델피언축에도 못 끼는 사람이지만 그래도 델파이가 좋아서
이렇게 하고 있습니다.
다름이 아니고 데이터베이스에 있는 필드에 폴더의 경로명을 넣고 폴더에
있는 이미지와 연관시켜 값을 QRimage로 뿌릴려고 하는데
방법을 모르겠네요
소스라도 조금 짜서 올려야 하는데 감이 오지 않아서요
이렇게 도움을 요청합니다.
정말 죄송합니다.
그럼 모두 고생하세요 감사합니다
참고로 아래 소스는 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;
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;
에휴~~ 죄송한데요
전 ftp를 쓰는게 아니고요 움 그러니까 로컬에서 데이터베이스는
acess를 쓰거든요 원래는 데이터베이스에 이미지를 넣어서 할려고
했는데 그럼 좀 쉽쟎아요 그런데 무거워진다고 하니 어떤 특정폴더에
이미지를 넣고 데이터베이스의 필드에 에 그경를 정하여 일치하면
원하는 이미지를 가져와야 하거든요
웹프로그램 할때는 쉬웠는데 델파이는 함수도 많이 모르겠고
아직 vcl도 잘모르고 그래서 감이 잡히지 않습니다.
기대에 부흥하지 못해서 미안합니다.
왜 요즘 델파이정보처리 시험에도 나오는 텍스트파일을 가져오는건
해봤는데 이미지는 어떤식으로 가져와야 할쥐
더군다나 데이터베이스의 필드중 경로와 일치해서 가져와야 하니
답답하네요
시간이 많으면 이리저리 테스트를 해보면서 해보겠는데
주어진 시간이 얼마남지 않아서 이렇게 고수님들을 귀챦게 하네요
죄송합니다.
제가 한것중에서 지울건 지우고 필요한 부분만 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;