코스모 wrote:

> * 사용환경 : 델파이5 / Windows 98

> * 에러 메시지 :

>

> 하나의 차트가 있습니다..

> SeriesList안에 차트 종류를 여러개를 만들어 놓았습니다.

> 그런데 실행후 화면에 보며지는 차트를 저장 버튼을 누르면 bmp로 저장을 시키려고 합니다.

> 근데 하는 방법을 잘 모르겟습니다.

> 아시는 분은 방법좀 가르쳐 주세여 여러 고수님 즐이 많으니까 도와 주세여(제발)~~~~

>

> 소스를 가지고 계시면 보내 주셔도 감사합니다.

>

> 즐거운 하루 되세여

>

>



안녕하십니까?

델세상(http://www.freechal.com/delphiworld) 의 조규춘입니다.



procedure TForm1.Button1Click(Sender: TObject);

var

Meta :TMetafile;

mybitmap : TBitmap;

begin

Meta:=Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,chart1.Height));

mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));



meta.SaveToFile('c:temp.wmf');

mybitmap.SaveToFile('c:temp.bmp');



meta.Free;

mybitmap.free;

end;





보시는 바와 같이 그 차트 컴포넌트에.. 그림으로 따로 저장할수 있는 루틴이 있습니다.

그러니.. 메타 파일 형식으로.. 아님 비트맵 형식으로 언제든 바꿀수 있답니다.



행복하십시요..

조규춘 wrote:

> 코스모 wrote:

> > * 사용환경 : 델파이5 / Windows 98

> > * 에러 메시지 :

> >

> > 하나의 차트가 있습니다..

> > SeriesList안에 차트 종류를 여러개를 만들어 놓았습니다.

> > 그런데 실행후 화면에 보며지는 차트를 저장 버튼을 누르면 bmp로 저장을 시키려고 합니다.

> > 근데 하는 방법을 잘 모르겟습니다.

> > 아시는 분은 방법좀 가르쳐 주세여 여러 고수님 즐이 많으니까 도와 주세여(제발)~~~~

> >

> > 소스를 가지고 계시면 보내 주셔도 감사합니다.

> >

> > 즐거운 하루 되세여

> >

> >

>

> 안녕하십니까?

> 델세상(http://www.freechal.com/delphiworld) 의 조규춘입니다.

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> Meta :TMetafile;

> mybitmap : TBitmap;

> begin

> Meta:=Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,chart1.Height));

> mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

>

> meta.SaveToFile('c:temp.wmf');

> mybitmap.SaveToFile('c:temp.bmp');

>

> meta.Free;

> mybitmap.free;

> end;

>

>

> 보시는 바와 같이 그 차트 컴포넌트에.. 그림으로 따로 저장할수 있는 루틴이 있습니다.

> 그러니.. 메타 파일 형식으로.. 아님 비트맵 형식으로 언제든 바꿀수 있답니다.

>

> 행복하십시요..





님 감사합니다...

하지만 님이 가르쳐 주신대로 하니까 ..

mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

이 부분에서 에러 발생 하더군요..

자세하게 좀 가르쳐 주세여...

Clwhite : 이곳에서 에러가 발생합니다..

[Error] Graph.pas(200): Too many actual parameters

이런 메서지가 나옵니다...

제발좀 가르쳐 주세여



그리고 한가지 더 부탁좀 드립니다 저장 다이얼러그를 사용해서 할려고 하는하는데여

하시는김에 수고가 안 된다면 이것두 좀 해 주세여





좋은하루 되세여

코스모 wrote:

> 조규춘 wrote:

> > 코스모 wrote:

> > > * 사용환경 : 델파이5 / Windows 98

> > > * 에러 메시지 :

> > >

> > > 하나의 차트가 있습니다..

> > > SeriesList안에 차트 종류를 여러개를 만들어 놓았습니다.

> > > 그런데 실행후 화면에 보며지는 차트를 저장 버튼을 누르면 bmp로 저장을 시키려고 합니다.

> > > 근데 하는 방법을 잘 모르겟습니다.

> > > 아시는 분은 방법좀 가르쳐 주세여 여러 고수님 즐이 많으니까 도와 주세여(제발)~~~~

> > >

> > > 소스를 가지고 계시면 보내 주셔도 감사합니다.

> > >

> > > 즐거운 하루 되세여

> > >

> > >

> >

> > 안녕하십니까?

> > 델세상(http://www.freechal.com/delphiworld) 의 조규춘입니다.

> >

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

> > var

> > Meta :TMetafile;

> > mybitmap : TBitmap;

> > begin

> > Meta:=Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,chart1.Height));

> > mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

> >

> > meta.SaveToFile('c:temp.wmf');

> > mybitmap.SaveToFile('c:temp.bmp');

> >

> > meta.Free;

> > mybitmap.free;

> > end;

> >

> >

> > 보시는 바와 같이 그 차트 컴포넌트에.. 그림으로 따로 저장할수 있는 루틴이 있습니다.

> > 그러니.. 메타 파일 형식으로.. 아님 비트맵 형식으로 언제든 바꿀수 있답니다.

> >

> > 행복하십시요..

>

>

> 님 감사합니다...

> 하지만 님이 가르쳐 주신대로 하니까 ..

> mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

> 이 부분에서 에러 발생 하더군요..

> 자세하게 좀 가르쳐 주세여...

> Clwhite : 이곳에서 에러가 발생합니다..

> [Error] Graph.pas(200): Too many actual parameters

> 이런 메서지가 나옵니다...

> 제발좀 가르쳐 주세여

>

> 그리고 한가지 더 부탁좀 드립니다 저장 다이얼러그를 사용해서 할려고 하는하는데여

> 하시는김에 수고가 안 된다면 이것두 좀 해 주세여

>

>

> 좋은하루 되세여

>

>

>

조규춘 wrote:

> 코스모 wrote:

> > 조규춘 wrote:

> > > 코스모 wrote:

> > > > * 사용환경 : 델파이5 / Windows 98

> > > > * 에러 메시지 :

> > > >

> > > > 하나의 차트가 있습니다..

> > > > SeriesList안에 차트 종류를 여러개를 만들어 놓았습니다.

> > > > 그런데 실행후 화면에 보며지는 차트를 저장 버튼을 누르면 bmp로 저장을 시키려고 합니다.

> > > > 근데 하는 방법을 잘 모르겟습니다.

> > > > 아시는 분은 방법좀 가르쳐 주세여 여러 고수님 즐이 많으니까 도와 주세여(제발)~~~~

> > > > > > > > 소스를 가지고 계시면 보내 주셔도 감사합니다.









> > > >

> > > > 즐거운 하루 되세여

> > > >

> > > >

> > >

> > > 안녕하십니까?

> > > 델세상(http://www.freechal.com/delphiworld) 의 조규춘입니다.

> > >

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

> > > var

> > > Meta :TMetafile;

> > > mybitmap : TBitmap;

> > > begin

> > > Meta:=Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,chart1.Height));

> > > mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

> > >

> > > meta.SaveToFile('c:temp.wmf');

> > > mybitmap.SaveToFile('c:temp.bmp');

> > >

> > > meta.Free;

> > > mybitmap.free;

> > > end;

> > >

> > >

> > > 보시는 바와 같이 그 차트 컴포넌트에.. 그림으로 따로 저장할수 있는 루틴이 있습니다.

> > > 그러니.. 메타 파일 형식으로.. 아님 비트맵 형식으로 언제든 바꿀수 있답니다.

> > >

> > > 행복하십시요..

> >

> >

> > 님 감사합니다...

> > 하지만 님이 가르쳐 주신대로 하니까 ..

> > mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

> > 이 부분에서 에러 발생 하더군요..

> > 자세하게 좀 가르쳐 주세여...

> > Clwhite : 이곳에서 에러가 발생합니다..

> > [Error] Graph.pas(200): Too many actual parameters

> > 이런 메서지가 나옵니다...

> > 제발좀 가르쳐 주세여

> >

> > 그리고 한가지 더 부탁좀 드립니다 저장 다이얼러그를 사용해서 할려고 하는하는데여

> > 하시는김에 수고가 안 된다면 이것두 좀 해 주세여

> >

> >

> > 좋은하루 되세여

> >

> >

> >











버젼은 델파 4로 작업중입니다.

디비는 mdb를 사용하구여 ............

수고 하세요



그리고 좋은 하루 되세요~~~~~~~~~~~