Q&A
- 파일의 이미지 불러오기..
procedure TFmI101.Button1Click(Sender: TObject);
const IM_PHOTO = 'V:BoardPhoto';
var Iname : string;
begin
Iname := '';
Iname := 'ac_sabn2.text'; //001102
if FileExists(IM_PHOTO + Iname + '.jpg') = True then begin
Image1.Picture.Graphic.LoadFromFile(IM_PHOTO + Iname + '.jpg');
//사진이 있는 경우
end else
begin
Image1.Picture.Graphic := Nil;
showmessage('사진이 없어요');
end;
end;
위는 Q/A를 조회해서 박재수님의 답변을 그대로 한 것입니다.
V:BoardPhoto 요 경로에는 001102.jpg 라는 Image가 있습니다.
근데 위소스는 계속 없다고 나옵니다.
에러는 엑세스 바이올레이션이 나옵니다. 무었이 잘못 된것인가요?
const IM_PHOTO = 'V:BoardPhoto';
var Iname : string;
begin
Iname := '';
Iname := 'ac_sabn2.text'; //001102
if FileExists(IM_PHOTO + Iname + '.jpg') = True then begin
Image1.Picture.Graphic.LoadFromFile(IM_PHOTO + Iname + '.jpg');
//사진이 있는 경우
end else
begin
Image1.Picture.Graphic := Nil;
showmessage('사진이 없어요');
end;
end;
위는 Q/A를 조회해서 박재수님의 답변을 그대로 한 것입니다.
V:BoardPhoto 요 경로에는 001102.jpg 라는 Image가 있습니다.
근데 위소스는 계속 없다고 나옵니다.
에러는 엑세스 바이올레이션이 나옵니다. 무었이 잘못 된것인가요?
4
COMMENTS
-
-
procedure TFmI101.Button1Click(Sender: TObject);
const IM_PHOTO = 'V:BoardPhoto';
var Iname : string;
begin
Iname := '';
Iname := ac_sabn2.text; //001102
if FileExists(IM_PHOTO + Iname + '.jpg') = True then begin
Image1.Picture.Graphic.LoadFromFile(IM_PHOTO + Iname + '.jpg');
//사진이 있는 경우
end else
begin
Image1.Picture.Graphic := Nil;
showmessage('사진이 없어요');
end;
end;
위는 Q/A를 조회해서 박재수님의 답변을 그대로 한 것입니다.
V:BoardPhoto 요 경로에는 001102.jpg 라는 Image가 있습니다.
근데 위소스는 계속 없다고 나옵니다.
에러는 엑세스 바이올레이션이 나옵니다. 무었이 잘못 된것인가요?
-
Image1.Picture.LoadFromFile(IM_PHOTO + Iname + '.jpg'); //이렇게 해보십시오.
-
아래처럼 하니 제대로 되네요... 감사합니다.
procedure TFmI101.Button1Click(Sender: TObject);
const IM_PHOTO = 'V:BoardPhoto';
var Iname : string;
begin
Iname := '';
Iname := ac_sabn2.text; //001102
if FileExists(IM_PHOTO + Iname + '.jpg') = True then begin
Image1.Picture.LoadFromFile(IM_PHOTO + Iname + '.jpg');
end else
begin
Image1.Picture.Graphic := Nil;
showmessage('사진이 없어요');
end;
end;
(NOTICE) You must be logged in to comment on this post.
-
- 강문철
- •
- 2003.03.03 21:43
- 2 COMMENTS
- /
- 0 LIKES
-
래머•2003.03.03 23:01report setting설정해주셨나요. 용지가장 위쪽에서 오른쪽버튼눌러서 나오는 창을 보면 report setting가...
-
KDDG_Cali•2003.03.03 22:21방법 1. TQuickrep 프로퍼티 중 [Page]-[Oritation]을 poLandScape ...
-
- 박희경
- 2003.03.03 21:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 박희경
- •
- 2003.03.03 14:24
- 4 COMMENTS
- /
- 0 LIKES
-
nilriri™•2003.03.03 19:03wb_1.OleObject.Document.Body.innerHtml:='<HTML><HEAD><TITLE></TITL...
-
박희경•2003.03.03 20:21답변 감사드립니다 그런데 엑세스 바이올레이션 메모리 에러가 나는군요. ......
-
nilriri™•2003.03.03 20:58이상하군요.저도 요즘..웹브라우져 컨트롤을 가지고작업을 하고 있어서.. 직접테스트를 해보고 올린건데.....
-
원도일•2003.04.11 02:42이거 찾는데 한 3시간 보냈습니다. Form 시작할때 아래의 문장을 삽입하고 나중에 innerHtml을 사용해야 ...
-
- 이병훈
- 2003.03.03 01:29
- 0 COMMENTS
- /
- 0 LIKES
-
- nilriri™
- •
- 2003.03.01 13:14
- 3 COMMENTS
- /
- 0 LIKES
-
김병곤•2003.03.03 19:05강의 프로그램을 작업하시고 계시나봐요? ^^; OleDraw함수를 이용하세요. 웹페이지의 사이즈는 web.Contr...
-
nilriri™•2003.03.03 20:57ㅡㅡ; 와우북, 영풍, 교보....등등...못 찾겠어요..ㅡㅡ; 그럼..
-
nilriri™•2003.03.03 20:13.
-
- 김관우
- 2003.03.01 08:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 김용일
- •
- 2003.03.01 06:00
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2003.03.03 18:32안녕하세요. 한원희입니다. 먼저 트레이 아이콘 관련 컴포넌트를 구하셔야 겠네요. Rx를 추천하고요... ...
-
- 하늘에서물속까지
- •
- 2003.03.01 04:14
- 2 COMMENTS
- /
- 0 LIKES
-
[ROOKIE]•2003.03.04 18:58findcomponent 를 사용하세요.
-
한영관•2003.03.01 04:41답변이 되었으면 합니다. var i : integer; begin for i := 0 t...
-
- 정종필
- •
- 2003.03.01 04:11
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri™•2003.03.01 12:43SELECT a.id [Const ID], &...
-
정종필•2003.03.04 10:42님의 도움으로 방법을 찾았네요.. 감사드리구요.. sys* Table 뒤져보니 쓸만한 것들이 정말 ...
-
- 봔™
- •
- 2003.03.01 03:50
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri™•2003.03.01 12:50꼼꼼하게 훝어 보고 테스트해 볼 수는 없지만.. 에러 내용만으로 봐서는 if not PChar(Form2.ListB...
-
- 아폴론
- •
- 2003.03.01 03:04
- 4 COMMENTS
- /
- 0 LIKES
procedure TFmI101.Button1Click(Sender: TObject); const IM_PHOTO = 'V:BoardPhoto'; var Iname : string; begin Iname := ''; Iname := 'ac_sabn2.text'; //001102 if FileExists(IM_PHOTO + Iname + '.jpg') = True then begin Image1...-
깨구락지•2003.03.01 04:52//lname 은 'ac_sabn2.text'로 초기화가 되었고 //이줄에서 FileExists 함수로 전달되는 인자는 'V:BoardP...
-
아폴론•2003.03.01 05:36procedure TFmI101.Button1Click(Sender: TObject); const IM_PHOTO = 'V:BoardPhoto'; var Iname : stri...
-
깨구락지•2003.03.01 11:31Image1.Picture.LoadFromFile(IM_PHOTO + Iname + '.jpg'); //이렇...
-
아폴론•2003.03.02 03:46아래처럼 하니 제대로 되네요... 감사합니다. procedure TFmI101.Button1Click(Sender: TObject); cons...
-
- 임한섭
- 2003.03.01 02:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민수
- 2003.03.01 01:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 조해욱
- 2003.03.01 00:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 우주천왕
- 2003.03.01 00:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 봔™
- •
- 2003.03.01 00:14
- 11 COMMENTS
- /
- 0 LIKES
-
이순구•2003.03.01 02:32
-
나옹이•2003.03.01 00:47
-
봔™•2003.03.01 01:07
-
나옹이•2003.03.01 01:19
-
봔™•2003.03.01 01:25
-
김한순•2003.03.01 01:42
-
봔™•2003.03.01 02:00
- • • •
-
- 깡~~~
- 2003.03.01 00:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형준
- 2003.02.28 23:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 거리
- 2003.02.28 21:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 무식
- •
- 2003.02.28 21:33
- 1 COMMENTS
- /
- 0 LIKES
-
래머•2003.02.28 22:30if gs_Row mod 15 then begi...
//이줄에서 FileExists 함수로 전달되는 인자는 'V:BoardPhotoac_sabn2.text.jpg 가 되었군요. 'V:BoardPhoto 01102.jpg' 가 전달될수 있도록 다시 검토해 보십시오.