한국 델파이 개발자 모임 - JPG파일 다른이름으로 저장???

JPG파일 다른이름으로 저장???

procedure TForm1.bbSaveAsClick(Sender: TObject);

var

jpgimage : Tjpegimage;

CurrentFile : TFileName;

begin

if SavePictureDialog.Execute then

CurrentFile := SavePictureDialog.FileName;

jpgimage := Tjpegimage.create;

if CurrentFile <> '' then

jpgimage.SaveToFile(CurrentFile);

jpgimage.Free;

end;

위와같이 하면 다른이름으로 저장은 되는데...jpg사이즈가 0이더라구요,..

어떻게해야하는지????

이 게시물을

3 COMMENTS

kylix • 2001.03.10 20:09

뭔가 그림을 그리던가 다른 그림을 Assign하시던가 해야죠...

procedure TForm1.bbSaveAsClick(Sender: TObject);

var

jpgimage : Tjpegimage;

CurrentFile : TFileName;

begin

if SavePictureDialog.Execute then

CurrentFile := SavePictureDialog.FileName;

jpgimage := Tjpegimage.create;// 이미지생성. 현재 아무그림도 없음, 크기=0

if CurrentFile <> '' then

jpgimage.SaveToFile(CurrentFile); // 저장. 당연히 크기= 0

jpgimage.Free;

end;

==================================>

begin

...

jpgimage := Tjpegimage.create;

if CurrentFile <> '' then

begin

jpgimage.Assign(다른JpegImage);

jpgimage.SaveToFile(CurrentFile);

end;

jpgimage.Free;

end;

dol wrote:

> procedure TForm1.bbSaveAsClick(Sender: TObject);

> var

> jpgimage : Tjpegimage;

> CurrentFile : TFileName;

> begin

> if SavePictureDialog.Execute then

> CurrentFile := SavePictureDialog.FileName;

> jpgimage := Tjpegimage.create;

> if CurrentFile <> '' then

> jpgimage.SaveToFile(CurrentFile);

> jpgimage.Free;

> end;

>

> 위와같이 하면 다른이름으로 저장은 되는데...jpg사이즈가 0이더라구요,..

> 어떻게해야하는지????

>
- 0
- 0
- 삭제
- 수정
- 댓글
dol • 2001.03.11 00:04

도움감사하고요..

그런데 assign을 할때 안에 들어갈 이미지를

어떻게 설정을 해야 하는거죠?

예를들어 전 어느폴더의 이미지를 찾아..그 이미지를

정해진 다른 이름으로 바꿀려고 하는거거든요,,

다이알로그 박스에서 대상이미지 선택해서

이름변환하고 저장하려는 건데..

jpgimage.Assign(다른JpegImage) -->을 어떻게 해야하는지

구체적으로 도움좀 주십시요..

kylix wrote:

> 뭔가 그림을 그리던가 다른 그림을 Assign하시던가 해야죠...

>

> procedure TForm1.bbSaveAsClick(Sender: TObject);

> var

> jpgimage : Tjpegimage;

> CurrentFile : TFileName;

> begin

> if SavePictureDialog.Execute then

> CurrentFile := SavePictureDialog.FileName;

> jpgimage := Tjpegimage.create;// 이미지생성. 현재 아무그림도 없음, 크기=0

> if CurrentFile <> '' then

> jpgimage.SaveToFile(CurrentFile); // 저장. 당연히 크기= 0

> jpgimage.Free;

> end;

>

> ==================================>

>

> begin

> ...

> jpgimage := Tjpegimage.create;

> if CurrentFile <> '' then

> begin

> jpgimage.Assign(다른JpegImage);

> jpgimage.SaveToFile(CurrentFile);

> end;

> jpgimage.Free;

> end;

>

> dol wrote:

> > procedure TForm1.bbSaveAsClick(Sender: TObject);

> > var

> > jpgimage : Tjpegimage;

> > CurrentFile : TFileName;

> > begin

> > if SavePictureDialog.Execute then

> > CurrentFile := SavePictureDialog.FileName;

> > jpgimage := Tjpegimage.create;

> > if CurrentFile <> '' then

> > jpgimage.SaveToFile(CurrentFile);

> > jpgimage.Free;

> > end;

> >

> > 위와같이 하면 다른이름으로 저장은 되는데...jpg사이즈가 0이더라구요,..

> > 어떻게해야하는지????

> >
- 0
- 0
- 삭제
- 수정
- 댓글
kylix • 2001.03.11 00:58

그런 경우라면 Assign할필요가 없네요.. SaveToFile메소드를 쓰세요...

procedure TForm1.bbSaveAsClick(Sender: TObject);

var

jpgimage : Tjpegimage;

CurrentFile : TFileName;

begin

if SavePictureDialog.Execute then

begin

CurrentFile := SavePictureDialog.FileName;

jpgimage := Tjpegimage.create;

// 파일을 불러온다...

jpgimage.LoadFromFile('c:myfoldermyimage.jpg');

// 다른이름으로 저장한다...

jpgimage.SaveToFile(CurrentFile);

jpgimage.Free;

end;

end;

dol wrote:

> 도움감사하고요..

> 그런데 assign을 할때 안에 들어갈 이미지를

> 어떻게 설정을 해야 하는거죠?

> 예를들어 전 어느폴더의 이미지를 찾아..그 이미지를

> 정해진 다른 이름으로 바꿀려고 하는거거든요,,

> 다이알로그 박스에서 대상이미지 선택해서

> 이름변환하고 저장하려는 건데..

> jpgimage.Assign(다른JpegImage) -->을 어떻게 해야하는지

> 구체적으로 도움좀 주십시요..

>

>

> kylix wrote:

> > 뭔가 그림을 그리던가 다른 그림을 Assign하시던가 해야죠...

> >

> > procedure TForm1.bbSaveAsClick(Sender: TObject);

> > var

> > jpgimage : Tjpegimage;

> > CurrentFile : TFileName;

> > begin

> > if SavePictureDialog.Execute then

> > CurrentFile := SavePictureDialog.FileName;

> > jpgimage := Tjpegimage.create;// 이미지생성. 현재 아무그림도 없음, 크기=0

> > if CurrentFile <> '' then

> > jpgimage.SaveToFile(CurrentFile); // 저장. 당연히 크기= 0

> > jpgimage.Free;

> > end;

> >

> > ==================================>

> >

> > begin

> > ...

> > jpgimage := Tjpegimage.create;

> > if CurrentFile <> '' then

> > begin

> > jpgimage.Assign(다른JpegImage);

> > jpgimage.SaveToFile(CurrentFile);

> > end;

> > jpgimage.Free;

> > end;

> >

> > dol wrote:

> > > procedure TForm1.bbSaveAsClick(Sender: TObject);

> > > var

> > > jpgimage : Tjpegimage;

> > > CurrentFile : TFileName;

> > > begin

> > > if SavePictureDialog.Execute then

> > > CurrentFile := SavePictureDialog.FileName;

> > > jpgimage := Tjpegimage.create;

> > > if CurrentFile <> '' then

> > > jpgimage.SaveToFile(CurrentFile);

> > > jpgimage.Free;

> > > end;

> > >

> > > 위와같이 하면 다른이름으로 저장은 되는데...jpg사이즈가 0이더라구요,..

> > > 어떻게해야하는지????

> > >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 김동수
- •
- 2001.03.12 11:34
- 2 COMMENTS
- /
- 0 LIKES
Count - 1이 마지막 데이터를 가리키는 이유?
- 최용일
  
  •
  
  2001.03.12 11:35
  
  안녕하세요. 최용일입니다. 님이 만드신 스택배열은 인덱스가 1부터 시작하죠? 그런데 TListBox.Items배...
- 김동수
  
  •
  
  2001.03.10 20:57
  
  감사함다. 저두 빨리 리플달아줄 실력이 되었음 좋겠네여...
- 바보감자
- 2001.03.10 20:09
- 0 COMMENTS
- /
- 0 LIKES
해상도 바꾸는거 하면 작업 표시줄이 안나오넹 ㅡㅡ;;
- dol
- •
- 2001.03.10 19:53
- 3 COMMENTS
- /
- 0 LIKES
JPG파일 다른이름으로 저장???

procedure TForm1.bbSaveAsClick(Sender: TObject); var jpgimage : Tjpegimage; CurrentFile : TFileName; begin if SavePictureDialog.Execute then CurrentFile := SavePictureDialog.FileName; jpgimage := Tjpegimage.create; if Cur...
- kylix
  
  •
  
  2001.03.10 20:09
  
  뭔가 그림을 그리던가 다른 그림을 Assign하시던가 해야죠... procedure TForm1.bbSaveAsClick(Sender: ...
- dol
  
  •
  
  2001.03.11 00:04
  
  도움감사하고요.. 그런데 assign을 할때 안에 들어갈 이미지를 어떻게 설정을 해야 하는거죠? 예를들어...
- kylix
  
  •
  
  2001.03.11 00:58
  
  그런 경우라면 Assign할필요가 없네요.. SaveToFile메소드를 쓰세요... procedure TForm1.bbSaveAsClick...
- 지풍
- •
- 2001.03.11 04:12
- 2 COMMENTS
- /
- 0 LIKES
Listview checkbox 표시된것 또다른 Listview 삽입
- 최용일
  
  •
  
  2001.03.10 20:17
  
  안녕하세요. 최용일입니다. TListItem.Checked로 판별해서 TListItem.Assign으로 복사해주시면 됩니다. ...
- 지풍
  
  •
  
  2001.03.10 20:29
  
  최용일 wrote: > 안녕하세요. 최용일입니다. > > TListItem.Checked로 판별해서 TListItem.Assign으로 ...
- 오승섭
- 2001.03.10 19:41
- 0 COMMENTS
- /
- 0 LIKES
Quick Report에대해서...........
- [슬픈비]
- •
- 2001.03.10 19:40
- 2 COMMENTS
- /
- 0 LIKES
ACCESS 안깔고 MDB 파일 ODBC 연결?
- 바보감자
  
  •
  
  2001.03.10 20:13
  
  [슬픈비] wrote: > > 안녕하세요. > > 다름이 아니라.. 요즘.. 검사가 장난 아니잖아요. > 그래...
- [슬픈비]
  
  •
  
  2001.03.10 23:10
  
  바보감자 wrote: > [슬픈비] wrote: > > > > 안녕하세요. > > > > 다름이 아니라.. 요즘.. 검사가...
- 초보델
- 2001.03.10 19:01
- 0 COMMENTS
- /
- 0 LIKES
html로부터 activeX로의 값 전달이 가능한지?
- 정병화
- •
- 2001.03.10 18:43
- 2 COMMENTS
- /
- 0 LIKES
DBGrid에서요 선택된것들을 바꾸는거요
- 윤광석
  
  •
  
  2001.03.10 18:55
  
  아래소스 델파이 help화일에 있는 예제에요... 참조하세요.. The following example copies the select...
- 정병화
  
  •
  
  2001.03.10 19:33
  
  답변 감사드립니다만, 약간 좀 이해가 안되어서... 그렇다면, DBGrid에서 선택되어진 ROWS (RECORD)들의...
- 델파초짜..
- •
- 2001.03.10 18:36
- 5 COMMENTS
- /
- 0 LIKES
생성한 폼 안에 컴포넌트 사용하기
- 최용일
  
  •
  
  2001.03.10 20:54
- 델파초짜..
  
  •
  
  2001.03.10 22:15
- 최용일
  
  •
  
  2001.03.10 22:45
- 델파초짜..
  
  •
  
  2001.03.10 23:06
- 최용일
  
  •
  
  2001.03.10 23:18
- 안나
- •
- 2001.03.10 18:26
- 1 COMMENTS
- /
- 0 LIKES
[급질문]RX에서 설치된 TDateedit의 문제..
- 안나
  
  •
  
  2001.03.10 19:43
  
  최석기 wrote: > 그건 콤퍼넌트 버그가 아니라 윈도우 설정 차이로 알고 있는데요.. > > 제어판에 보면...
- 카인
- 2001.03.10 18:03
- 0 COMMENTS
- /
- 0 LIKES
InterBase 메뉴얼을 구하고 싶은데여....
- 문디
- •
- 2001.03.10 17:35
- 1 COMMENTS
- /
- 0 LIKES
dll 상에서 qreport 출력을 하니 에러가...
- 문디
  
  •
  
  2001.03.12 11:36
  
  문디 wrote: > dll 상에서 레포트 출력을 하니 미리보기에는 결과가 나오는데 미리보기창에서 > 출력을 ...
- hs7606
- •
- 2001.03.10 11:53
- 1 COMMENTS
- /
- 0 LIKES
자기가 만든 프로그램 버전체크는 어떻게 하고, 관리는 어떻게 하는지 가르쳐 주세요!
- 바보감자
  
  •
  
  2001.03.10 20:14
  
  hs7606 wrote: > 네트웍에 관한 프로그램을 하나 만들었습니다. 서버와 클라이언트가 있는 프로그램입니다...
- 초보
- •
- 2001.03.10 08:38
- 1 COMMENTS
- /
- 0 LIKES
mdb를 bde에 연결방법
- 바보감자
  
  •
  
  2001.03.10 23:13
  
  초보 wrote: > 안녕하세여..... > 제가 알고 싶은 것은 Access를 인스톨하지 않고 bde를 mdb에 연결하는 ...
- 눈길
- •
- 2001.03.12 11:30
- 1 COMMENTS
- /
- 0 LIKES
FindComponent 사용법
- kylix
  
  •
  
  2001.03.12 11:30
  
  허걱~ 무슨 메뉴표시줄??? 여기에서 검색해보시라는 말이 었는데요... 쩝~ for I:=1 to 100 do T...
- 이영근
- •
- 2001.03.10 07:28
- 2 COMMENTS
- /
- 0 LIKES
Pchar 에 대해서~~
- kylix
  
  •
  
  2001.03.10 07:55
  
  Ord함수는 서수형을 인자로 받아들입니다. 문자열형은 안되여... 문자는 되지만... 그리고 굳이 PChar로...
- 이영근
  
  •
  
  2001.03.12 18:52
  
  kylix wrote: > Ord함수는 서수형을 인자로 받아들입니다. 문자열형은 안되여... 문자는 되지만... > >...
- 아이리스
- •
- 2001.03.12 11:33
- 1 COMMENTS
- /
- 0 LIKES
Quick Report 그룹핑하는 문제
- 아폴론
  
  •
  
  2001.03.12 11:33
  
  아이리스 wrote: > Band Type가 > > ------------------------ > Detail > ------------------------...
- 델초보...ㅠ.ㅠ
- •
- 2001.03.10 05:34
- 2 COMMENTS
- /
- 0 LIKES
모달폼에서 빠져나올때...
- kylix
  
  •
  
  2001.03.10 07:59
  
  이걸 말씀하시는 거죠? if DM1.MemberList.FieldByName('End_Register').AsString < StrDate then begi...
- 델초보...ㅠ.ㅠ
  
  •
  
  2001.03.10 18:43
  
  kylix wrote: > 이걸 말씀하시는 거죠? > > if DM1.MemberList.FieldByName('End_Register').AsString ...
- 우헤헤
- 2001.03.10 05:28
- 0 COMMENTS
- /
- 0 LIKES
MdiForm,MdiChild
- 배장훈
- •
- 2001.03.10 05:15
- 1 COMMENTS
- /
- 0 LIKES
DBGrid에 대한 문제입니다. 도와 주세요...
- BENGI
  
  •
  
  2001.03.10 08:18
  
  배장훈 wrote: > DBGrid의 options 의 dgRowSelect속성이 있는데 이것을 True로 선택하고 실행을 합니다 ...

dol
2001/03/10 19:53
Views283

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1902 1903 1904 1905 1906 1907 1908 1909 1910 1911

Last Page→