怎么windows.polygon不灵啦？(50分)

jqw · 2001-04-05

各位兄弟：    我在Delphi4+NT下调用Windows API函数Polygon,但就是 画不出多边形来，这是为什么？请各位大吓帮忙。   下面是部分程序： procedure TForm1.Button1Click(Sender: TObject); var   //   DC:HDC;   brush:HBRUSH;   PEN:HPEn;   oldmode:integer;   //   PointsArr:Array of TPoint; begin   DC:=GetDC(Handle);//换成 DC:=Canvas.Handle 也不灵   brush:=0;   pen:=0;   //   try     brush:=CreateSolidBrush(Clred);     oldMode:=SetBkMode(DC,Transparent);//     SelectObject(DC,brush);     Pen:=CreatePen(PS_SOLID,1,clred);     SelectObject(DC,Pen);     SetLength(PointsArr,4);//     PointsArr[0]:=Point(20,2);     PointsArr[1]:=Point(120,6);     PointsArr[2]:=Point(100,200);     PointsArr[3]:=Point(20,200);     Windows.Polygon(DC,PointsArr, 4); //??   finally     DeleteObject(brush);     DeleteObject(PEN);   end;   SetBkMode(DC,oldMode);// end;   多谢！！

jqw · 2001-04-05

兄弟们，帮忙呀？！ 分不够，可以再加！

jqw · 2001-04-05

兄弟们，帮忙呀？！ 分不够，可以再加！

wjiachun · 2001-04-05

按照你的要求改了一下

procedure TForm1.Button1Click(Sender: TObject); var   DC:HDC;   brush:HBRUSH;   PEN:HPEn;   oldmode:integer;   Acanvas:TCanvas;   PointsArr:Array of TPoint; begin   DC:=GetDC(0);   brush:=0;   pen:=0;   Acanvas:=TCanvas.Create;   Acanvas.Handle:=DC;   try     brush:=CreateSolidBrush(Clred);     oldMode:=SetBkMode(DC,Transparent);     SelectObject(DC,brush);     Pen:=CreatePen(PS_SOLID,1,clred);     SelectObject(DC,Pen);     SetLength(PointsArr,4);     PointsArr[0]:=Point(20,2);     PointsArr[1]:=Point(120,6);     PointsArr[2]:=Point(100,200);     PointsArr[3]:=Point(20,200);     Acanvas.Polygon(PointsArr);   finally     DeleteObject(brush);     DeleteObject(pen);     Acanvas.Free;   end;   SetBkMode(DC,oldMode);   ReleaseDC (0,dc); end;

吕雪松 · 2001-04-05

这样做… type   TXYPoints = array[0..1023] of TPoint;   PXYPoints = ^TXYPoints;   .... procedure TForm1.Button1Click(Sender: TObject); var   //   DC:HDC;   brush:HBRUSH;   PEN:HPEn;   oldmode:integer;   //   PointsArr:  PXYPoints;  //指针，动态的 begin   DC:=GetDC(Handle);//换成 DC:=Canvas.Handle 也不灵   brush:=0;   pen:=0;   //   try     brush:=CreateSolidBrush(Clred);     oldMode:=SetBkMode(DC,Transparent);//     SelectObject(DC,brush);     Pen:=CreatePen(PS_SOLID,1,clred);     SelectObject(DC,Pen);     GetMem(PointsArr,4 * SizeOf(TPoint));     PointsArr[0] := Point(20,2);     PointsArr[1] := Point(120,6);     PointsArr[2] := Point(100,200);     PointsArr[3] := Point(20,200);     Windows.Polygon(DC,PointsArr^, 4);     FreeMem(PointsArr,4 * SizeOf(TPoint));   finally     DeleteObject(brush);     DeleteObject(PEN);   end;   SetBkMode(DC,oldMode);// end;

吕雪松 · 2001-04-05

wjiachun 呵，你画到屏幕上去了！ jqw 问题的关键是setlength不对，不信你把你的程序改成这样就可以了。 procedure TForm1.Button1Click(Sender: TObject); var   //   DC:HDC;   brush:HBRUSH;   PEN:HPEn;   oldmode:integer;   //   PointsArr:Array[0..3] of TPoint; begin   DC:=GetDC(Handle);  brush:=0;   pen:=0;   //   try     brush:=CreateSolidBrush(Clred);     oldMode:=SetBkMode(DC,Transparent);//     SelectObject(DC,brush);     Pen:=CreatePen(PS_SOLID,1,clred);     SelectObject(DC,Pen);     //SetLength(PointsArr,4);     ShowMessage(IntToStr(SizeOf(PointsArr))); //长度为32个字节，如果用原来你的setlength，长度仍为4个字节     PointsArr[0]:=Point(20,2);     PointsArr[1]:=Point(120,6);     PointsArr[2]:=Point(100,200);     PointsArr[3]:=Point(20,200);     Windows.Polygon(DC,PointsArr, 4); //??   finally     DeleteObject(brush);     DeleteObject(PEN);   end;   SetBkMode(DC,oldMode);// end;

wjiachun · 2001-04-05

吕雪松：我以为他就是想屏幕作画的。

jqw · 2001-04-05

谢谢两位大虾，我先试试！

jqw · 2001-04-05

to wjiachun:我心里一直在谢谢你对我和大家的帮助 to 吕雪松:大虾一针见血

Arkain · 2001-04-05

这个问题其实不是 SetLength 的原因。因为动态数组的实质其实是一个指针，不论 SetLength 多少，其 Length 总是 4 。但是数组的长度的确是正确地设置了，否则后来会出现非法访问。   jqw 的源程序只要改一个地方就可以了，这是因为动态数组和静态数组的内存处理不同引起的：       Windows.Polygon(DC,PointsArr, 4); 改成：Windows.Polygon(DC,PointsArr[0], 4); ps To jqw : 写 DLL 和用不用 API 或者 TCanvas 没有关系。

jqw · 2001-04-06

谢谢

未来107 · 2002-08-11

Arkain的方法非常的好

怎么windows.polygon不灵啦？(50分)

jqw

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

吕雪松

Unregistered / Unconfirmed

吕雪松

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

Arkain

Unregistered / Unconfirmed

jqw

Unregistered / Unconfirmed

未来107

Unregistered / Unconfirmed

Similar threads