• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 11 رای - 3.45 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: مطلب و دلفی
حالت خطی
#2
سلام
خوش امدی به فروم مهرداد جان
قبلا مبین بابلی یه توضیحاتی در موردش داده بود اینم یه نمونه سورس کد :
کد:
uses
comobj;
var
v : variant;
mreal : olevariant;
mimage : olevariant;

begin begin
i,j : integer;

mreal := vararraycreate([0, 1, 0, 3], vardouble);
mimage := vararraycreate([0,0,0,0], vardouble);
v := createoleobject('matlab.application');
v.execute('a=[1 2 3 4; 5 6 7 8]');
v.getfullmatrix('a','base',vararrayref(mreal),vararrayref(mimage));
for i := 0 to 1 do
for j := 0 to 3 do
stringgrid1.cells[j,i] := mreal[i,j];
v.execute('peaks');
mreal := vararraycreate([0, 1, 0, 3], vardouble);
mimage := vararraycreate([0,0,0,0], vardouble);
for i := 0 to 1 do
for j := 0 to 3 do
mreal[i,j] := i+4;
v.putfullmatrix('b','base',vararrayref(mreal),vararrayref(mimage));
end;
یک مثال دیگر
کد:
کد:
unit TestMatlab1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Matlab : Variant;
zr, zi : OleVariant;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
begin
Caption := 'Matlab Magic';
Matlab := CreateOleObject('Matlab.Application'); // Cria instância de objeto
zr := VarArrayCreate([1, 16, 1, 16], varDouble); // Cria array de Variants com double precision
zi := VarArrayCreate([0, 0], varDouble);
for i := 1 to 16 do
for j := 1 to 16 do
zr[i, j] := Random; // Define a matriz zr (16, 16)
Matlab.PutFullMatrix('a', 'base', VarArrayRef(zr), VarArrayRef(zi));
Matlab.Execute('contour(a)');
// Matlab := Unassigned; // Libera objeto
end;
end.
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
مطلب و دلفی - توسط mehrdadgh - 04-27-2011، 07:37 PM
RE: مطلب و دلفی - توسط Amin_Mansouri - 04-27-2011، 08:07 PM
RE: مطلب و دلفی - توسط mehrdadgh - 04-29-2011، 08:34 PM
RE: مطلب و دلفی - توسط Amin_Mansouri - 04-29-2011، 08:45 PM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد انتقال فایل به سطل اشغال ( دلفی) Amin_Mansouri 1 6,224 10-08-2022، 06:21 PM
آخرین ارسال: sonusood
  سورس بدست اوردن کلیپ برد ( دلفی ) Amin_Mansouri 1 8,420 10-08-2022، 05:49 PM
آخرین ارسال: sonusood
  دلفی و تلگرام h_mohamadi 2 5,277 04-24-2017، 12:14 AM
آخرین ارسال: shilanaseri
  رسم نمودار در اکسل از طریق دلفی Saeed7007 1 6,810 08-14-2014، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن اطلاعات هارد دیسک (دلفی) Amin_Mansouri 1 8,793 07-30-2014، 05:45 PM
آخرین ارسال: dehqan_mehdi
  ۳۵۰ سورس کد دلفی (دلفی رو از ابتدا تا حرفه ای شدن یاد بگیرید) Amin_Mansouri 11 33,896 01-31-2014، 04:27 PM
آخرین ارسال: Amin_Mansouri
  بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) Amin_Mansouri 2 10,947 08-23-2013، 10:06 PM
آخرین ارسال: mo_coders
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 5,131 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  دانلود سورس کد استفاده از نقشه گوگل در دلفی Amin_Mansouri 0 7,024 08-17-2013، 09:44 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 5,263 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان