我有幾個3ds，有沒有網友可以寫個delphi程序來使它旋轉、移動、翻滾呢？ "> "> "> 發表人 - nicolas 於 2005/01/14 21:09:22

在bcb上面執行可以嗎? delphi不熟-_-"

可以呀 謝謝

大哥你的連結好像-_-|| 還是要有什麼特定的方法才能連到呢? 例如 沙米尼亞東之類的暗語........Orz....

http://delphi.ktop.com.tw/loadfile.php?TOPICID=19885216&CC=444724 http://delphi.ktop.com.tw/loadfile.php?TOPICID=19885529&CC=444731 http://delphi.ktop.com.tw/loadfile.php?TOPICID=19885842&CC=444738

当然可以，我改写了Asphyre3DSOjbect.pas;可以读取材质信息，但还不能读取纹理信息，现在正在改进
下载地址：
http://www.afterwarp.net/forum/attachment.php?attachmentid=777&d=1162798551

------
想别人想不到的就是创新
只有想不到,没有做不到

已经可以加载纹理了

------
想别人想不到的就是创新
只有想不到,没有做不到

http://dan59314.myweb.hinet.net/MiscProject.htm 內 可下載 Model Viewer Demo

Home:
http://dan59314.myweb.hinet.net

參考看看,使用GLScene元件

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, GLScene, GLVectorFileObjects, GLMisc, GLWin32Viewer,
GLTexture, GLObjects, StdCtrls,Math,VectorGeometry;

type
TForm1 = class(TForm)
GLSceneViewer1: TGLSceneViewer;
GLScene1: TGLScene;
GLMaterialLibrary1: TGLMaterialLibrary;
GLCamera1: TGLCamera;
GLDummyCube1: TGLDummyCube;
GLLightSource1: TGLLightSource;
OpenDialog1: TOpenDialog;
Button1: TButton;
GLFreeForm1: TGLFreeForm;
procedure Button1Click(Sender: TObject);
procedure GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure GLSceneViewer1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Procedure Selected(Var Scr:TGLSceneViewer;X,Y:Integer;
Var Obj:TGLBaseSceneObject;Var Vector:TVector);
Function MouseWorldPos(var scn:TGLSceneViewer;x, y : Integer) : TVector;
end;

var
Form1: TForm1;
PX,PY:Integer;
Targets:TGLBaseSceneObject;
Last:TVector;

implementation
uses GLFile3DS;
{$R *.dfm}
Procedure TForm1.Selected(Var Scr:TGLSceneViewer;X,Y:Integer;
Var Obj:TGLBaseSceneObject;Var Vector:TVector);
Begin
Obj:=GLSceneViewer1.Buffer.GetPickedObject(X,Y);
Vector:=MouseWorldPos(Scr,X, Y);
End;
function TForm1.MouseWorldPos(var scn:TGLSceneViewer;x, y : Integer) : TVector;
var
v : TVector;
begin
y:=Scn.Height-y;
if Assigned(Targets) then begin
SetVector(v, x, y, 0);
Scn.Buffer.ScreenVectorIntersectWithPlaneXY(v, Targets.Position.Z, Result);
end else SetVector(Result, NullVector);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then Begin
GLFreeForm1.LoadFromFile(OpenDialog1.FileName);
GLCamera1.ZoomAll;
End;
end;

procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
If ssLeft in Shift Then Begin
//視點繞物體旋轉
GLCamera1.MoveAroundTarget( (PY-Y) * 0.2,(PX-X) * 0.2 );
PX:=X; PY:=Y;
End;
If Not Assigned(Targets) Then Exit;
If (ssRight In Shift) Then Begin
//旋轉單件物體
GLCamera1.RotateObject(Targets,(PX-X)* 0.2,(PX-Y)* 0.2);
End;
end;

procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//選擇物體
PX:=X; PY:=Y;
Selected(GLSceneViewer1,X,Y,Targets,Last);
end;

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
//縮放視景
GLCamera1.AdjustDistanceToTarget( Power(1.1, WheelDelta/120) );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//有些3DS載入時會出現錯誤,需忽略
GLFreeForm1.IgnoreMissingTextures:=True;
end;

end.


PS.其實這些都還算蠻簡單的,在網路上查就可以找到ㄧ堆Demo,哪像我在找的Cad相關Sample找到哭死
最後得出結論-->圖形學,曲線演算......有點灰心了QQ

有找到ㄧ款專門處理3D幾何的函式庫,有興趣的可以研究研究
gts.sourceforge.net

[Delphi][發表] [發表] 我的 OpenGL 學習用的專案 2 - 使用 GLScene



這裡有我練習的實作...



切換到 Func_50, Func_51.

Func_51輸出畫面: 47010b164fe08_Func00051.PNG

編輯記錄