Teknoloji Haberleri
H
Gönderiler
Hakkında
0 H
18 yıl
|
Exchange yada MS SQL çalışmasını durdurmadan diske yazmasını önlemek istiyorum.Yani okuma yazma işlemini kapatmadan (ram e yazsın sanal bir diske yazsın nereye yazarsa yazsın) diske erişimlerini sınırlayabilir miyim. VDI diye bir aygıt sanallaştırma sistemi var ama bir türlü anlamadım nedir bilgisi olan varsa yada bilgisi olan birini bilen varsa bildirirse sevinirim. İki haftadır çözemedim microsoft forumlarında bile cevaplanamadı çok uç bir konu bilen varsa bu işin piridir. |
H
18 yıl
| IBM DS4000 serisi üzerinde flash copy ile alınan bir yedekleme nasıl geri alınır. Yani restore işlemi nasıl gerçekleştirilir. |
H
18 yıl
|
veri depolama alanında kullanılacak bir yedekleme yazılımı yapmak istiyorum. Bu yazılım diskin snaphot'unu alıyor. Bu snapshot'un consistent olması için herhangi bir programın disk üzerine veri yazma sürecinde olmaması lazım.Bu yüzden programımız sql,oracle,db2 ne varsa senkron çalışması gerekiyor. Bu senkroniteyi sağlamak için programları backup moda almamız lazım bunu nasıl yapacağımızı bilmiyorum. Yardımcı olursanız sevinirim. ORACLE için bu pek zor değil sanırsam ama ms SQL için vdi mod diye tanımlanmış bir şey var ama API si çok karışık. Bu backup modunun diğer ismi de hot back up mış |
H
18 yıl
|
Üniversitede klübümüzün sayfası en güzel özelliği ders notlarını buraya koyuyoruz. IBM DS4000 hakkında türkçe döküman arayan varsa burada bulabilir. www.fatihcs.org |
H
18 yıl
|
Herhangi bir dil kullanarak Fare ve Klavyeden alınan verileri kaydedip benim yaptığım aynı şeyleri tekrar eden program nasıl yapabilirim. Gerçi .NET içinde cursor objesi ile bunu yapabiliyoruz ama sadece formun içinde sınırlı kalıyor benim işime yaramıyor. Bilgisayar- Elektronik Ders Notları Fatih Computer Society |
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
DonanımHaber Forum - Mini Sürüm
Hakkımızda | Yukarı
Tam sürüm için tıklayınız
Version: 1.2.896
Donanım Sponsoru:
Hakkımızda | Yukarı
Tam sürüm için tıklayınız
Version: 1.2.896
Donanım Sponsoru:
Hareketler tamam ama tıklama olmadı. Programımın dışında tıklamaları nasıl takip ederim
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, AppEvnts, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure aeMessage(var Msg: tagMSG; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure MyMouseEvent(var Msg: TMsg; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
mos:tpoint;
ass:Tmouse;
coords : array[1..100000, 1..3] of Integer;
i : Integer;
mode : Integer ;
max : Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
mode:= 1;
i:=0;
end;
procedure TForm1.aeMessage(var Msg: tagMSG; var Handled: Boolean);
begin
{ edit1.Text:=inttostr(msg.pt.X);
edit2.Text:=inttostr(msg.pt.y); }
coords[i,1] := msg.pt.X;
coords[i,2] := msg.pt.Y;
i := i+1;
max := i;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ass:=Tmouse.Create;
i:=1;
max := 0;
mode := 0;
Application.OnMessage := MyMouseEvent;
end;
procedure mouseclick() ;
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (mode = 2 ) then
begin
{ edit1.Text:=inttostr(ass.CursorPos.X);
edit2.Text:=inttostr(ass.CursorPos.y); }
coords[i,1] := ass.CursorPos.X;
coords[i,2] := ass.CursorPos.Y;
i := i+1;
max := i;
end;
if (mode = 1) then
begin
mos.X:=coords[i,1];
mos.Y:=coords[i,2];
ass.CursorPos:=mos;
case coords[i,3] of
1 : mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
2 : mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
3 : mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
4 : mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
end;
i := i +1;
if (i >= max) then
begin
mode:=0;
i:=0;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mode:= 2;
i:=0;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
mode:= 1;
i:= 0;
end;
procedure TForm1.MyMouseEvent(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.message of
wm_LButtonDown: coords[i-1,3] := 1;
WM_LBUTTONUP: coords[i-1,3] := 2;
WM_RBUTTONDOWN : coords[i-1,3] := 3;
WM_RBUTTONUP : coords[i-1,3] := 4;
end;
end;
end.