Q&A
- bmp사이즈에 관한 질문좀 받아 주세여
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('c:tsimg 3-10ww000011.bmp');
image1.Width:=256;
image1.Height:=128;
Image1.Canvas.CopyRect(Rect(0,0, Image1.Width, Image1.Height),
Image1.Canvas,
Rect(0, 0, Image1.Width, Image1.Height));
image1.Picture.SaveToFile('c:tsimg 3-1011.bmp');
end;
이렇게 하면요 파일사이즈가 256*128로 변형 되어서 저장 되어야 하는것 아닌가요?
사이즈 변형은 안됩니다.. 단지 폼에서는 256*128로 보여 질 뿐이네여..
애휴 답답혀라 ㅡㅡ;;
제가 무엇을 잘못 하고 있는 건지 알려 주세여 ㅜㅜ;;
죄송합니다.. 읽어 주셔서 감사 합니다..
begin
image1.Picture.LoadFromFile('c:tsimg 3-10ww000011.bmp');
image1.Width:=256;
image1.Height:=128;
Image1.Canvas.CopyRect(Rect(0,0, Image1.Width, Image1.Height),
Image1.Canvas,
Rect(0, 0, Image1.Width, Image1.Height));
image1.Picture.SaveToFile('c:tsimg 3-1011.bmp');
end;
이렇게 하면요 파일사이즈가 256*128로 변형 되어서 저장 되어야 하는것 아닌가요?
사이즈 변형은 안됩니다.. 단지 폼에서는 256*128로 보여 질 뿐이네여..
애휴 답답혀라 ㅡㅡ;;
제가 무엇을 잘못 하고 있는 건지 알려 주세여 ㅜㅜ;;
죄송합니다.. 읽어 주셔서 감사 합니다..
3
COMMENTS
-
-
안녕하세요. 최용일입니다.
Image1.Width나 Height는 Image1이란 컴포넌트의 크기를 설정하는 것이구요.
실제 이미지 크기를 설정하는 것은 아닙니다.
그리고 CopyRect메소드 쓰시면 영역을 벗어난 나머지 부분은 아마도 짤릴겁니다.
StretchDraw메소드 써서 하세요...
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
R: TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:Test1.bmp');
R := Rect(0, 0, 160, 120);
Bitmap.Canvas.StretchDraw(R, Bitmap);
Bitmap.Width := 160;
Bitmap.Height := 120;
Bitmap.SaveToFile('C:Test2.bmp');
Bitmap.Free;
end;
^^ 항상 즐코하세요...
-
image1.picture.bitmap.width := 256;
image1.picture.bitmap.height := 128;
이렇게 바꿔서함해보세여..
(NOTICE) You must be logged in to comment on this post.
-
- Ditto
- •
- 2002.07.03 03:09
- 1 COMMENTS
- /
- 0 LIKES
-
델파이탐크루즈•2002.07.03 03:34바코드 출력 프로그램은 외부컴포넌트를 이용하셔야 됩니다. 저도 사또껄로 짜서 출력을 해놨는데... ...
-
- 조길제
- •
- 2002.07.03 02:45
- 3 COMMENTS
- /
- 0 LIKES
-
백록화•2002.07.03 04:12yo` 안녕하세요!! 백록화 입니다. :) 날씨도 덥고...흐~ 흠..님이 알고 계신대로 MySQL은 원래 ...
-
조길제•2002.07.03 05:36답변 감사합니다... 이제야 지푸라기라도 잡은 심정입니다... ^^; 근데.. MyISAM이나 ISAM이 아닌 BDB...
-
백록화•2002.07.03 21:34yo` 안녕하세요!! 백록화 입니다. :) 음 일단 요즘 추세가 InnoDB를 많이 사용하고 있더군요 BDB보...
-
- 변선희
- •
- 2002.07.03 02:21
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.03 02:34안녕하세요. 최용일입니다. 아마 이전에 입력된 SQL문장이 남아 있어서 그런거 같은데... with문 맨 ...
-
변선희•2002.07.03 02:41먼저 감사합니다~. 디비그리드에서 수정 못하게 하려고 Read only를 True로 해놨거든요.. RequestL...
-
최용일•2002.07.03 05:44안녕하세요. 최용일입니다. 디비그리드에서 입력, 수정못하게 하실려면 Options속성에 있는 ...
-
김영철•2002.07.03 02:33요놈을 추가해주세요.. sql.clear; { 괄호 부분은 필요없어요.. } &nbs...
-
- 권혁규
- •
- 2002.07.03 01:44
- 3 COMMENTS
- /
- 0 LIKES
procedure TForm1.Button1Click(Sender: TObject); begin image1.Picture.LoadFromFile('c:tsimg3-10ww000011.bmp'); image1.Width:=256; image1.Height:=128; Image1.Canvas.CopyRect(Rect(0,0, Image1.Width, Image1.Height), Image1.Ca...-
권혁규•2002.07.03 03:11감사 합니다.. 즐코 하세요.. 저도 열심히 답변 찾아 올려 보겠습니다..
-
최용일•2002.07.03 01:56안녕하세요. 최용일입니다. Image1.Width나 Height는 Image1이란 컴포넌트의 크기를 설정하는 것이구요....
-
garibi•2002.07.03 01:55image1.picture.bitmap.width := 256; image1.picture.bitmap.height := 128; 이렇게 바꿔서함해보세여..
-
- 전정기
- •
- 2002.07.03 00:49
- 1 COMMENTS
- /
- 0 LIKES
-
우소•2002.07.03 01:47함수 중에.. filesetDate 화일 날짜를 얻는거구요 fileGetDate 화일 날짜를 바꾸는 함수 있니...
-
- 우소
- •
- 2002.07.03 00:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.03 02:05안녕하세요. 최용일입니다. 아주 드물겠지만 생길수 있는 문제네요... GetShortPathName란 API함수를...
-
- 주관석
- •
- 2002.07.03 00:44
- 2 COMMENTS
- /
- 0 LIKES
-
박준열•2002.07.03 01:40애석하게 되었슴돠. 저도 그런적이 있어요. 그러나 파일 모두가 망가진것은 아니거든요. 마음이 진정...
-
주관석•2002.07.03 03:01네 감사합니다. ㅎㅎ 전 그냥 프로잭트화일 메모장으로 열어 보았더니 프로젝트 소스에 오타가 하...
-
- 이승근
- •
- 2002.07.03 00:41
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.03 20:56이미지도 하나의 객체입니다.(TImage) nil 을 사용하세요.
-
- 김기현
- •
- 2002.07.03 00:02
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.03 02:12안녕하세요. 최용일입니다. 파워포인트는 Presentations객체가지고 파일작업을 하셔야 해요... var ...
-
- 손상엽
- •
- 2002.07.02 23:49
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2002.07.03 21:02이 소스에서는 엑셀의 영역을 잡고, 값을 대입하는군요. 저는 엑셀의 좌표에 바로 값을 대입하는데요 ...
-
- 왕초보
- •
- 2002.07.02 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2002.07.02 23:44안녕하세요 하얀까마귀 입니다. 나올때 마다 해주세요... 물론 말씀대로 if 문 쓰는게 좀 그렇긴 하...
-
- 최수림
- 2002.07.02 23:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 주관석
- •
- 2002.07.02 23:02
- 3 COMMENTS
- /
- 0 LIKES
-
장용호•2002.07.03 02:54안녕하세요. 아마도 주소를 보여 줄려고 하는거 같은데요. sido, gugun, Dong 3개 필드를 중간에 빈칸 하...
-
최석기•2002.07.02 23:27델파이 문제가 아닌거 같은데요.. Access에서 문자열 붙이는 기능은 '+'를 사용하는거 같네요. '||'...
-
하얀까마귀•2002.07.02 23:24쿼리에 || 없어요... 아마 or 을 쓰신건가요?? 아.. 우편번호 스트링을 연결하신거군요....
-
- 신현빈
- 2002.07.02 22:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 조성택
- •
- 2002.07.02 22:43
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.02 23:05안녕하세요. 최용일입니다. DB설정때문에 그럴수도 있겠지만 폼의 생성 순서를 먼저 살펴보셔야 겠네요....
-
- 차형석
- 2002.07.02 21:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 정민섭
- •
- 2002.07.02 21:32
- 3 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2002.07.02 22:09디렉토리가 있는지 확인해보셨나요?
-
정민섭•2002.07.02 22:45디렉토리는 존재하는 것을 체크했습니다.. 계속 Rewrite(F) 에서 파일을 찾을 수가 없다고 에러가 나는데...
-
KDDG_ZZOM•2002.07.02 23:51제가 했던 방법입니다... procedure TForm1.Button3Click(Sender: TObject); var MyFile&nb...
-
- 김명찬
- •
- 2002.07.02 21:17
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.02 22:59안녕하세요. 최용일입니다. RenameFile은 16bit기반함수 아닌데요... 방금 테스트해보았는데 XP, 20...
-
- 주관석
- •
- 2002.07.02 20:54
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2002.07.02 20:58쿼리의 텍스트가 잘못된것같은데... 실행시키기 전에 쿼리문을 만들걸 확인해보세요... query1.sql.text...
-
-
최용일•2002.07.02 23:08안녕하세요. 최용일입니다. 마우스이벤트(OnMouseXXXX)에서 하시면 되겠네요... OnMouseDown에서 초...
-
즐코 하세요..
저도 열심히 답변 찾아 올려 보겠습니다..