delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Cevapla
enesborankurt
Üye
Mesajlar: 37
Kayıt: 13 Oca 2016 10:53

delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen enesborankurt »

ayrıntılı anlatmak gerekirse client server matığı server a bağlanan clientlerin bilgisyarlarını kapata bilirimiyim yada kapalı olan bir bilgisayarı aça bilirmyim
Başa dön
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2380
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen freeman35 »

delphi işletim sistemi değildir. Program ve işletim sisteminin yapacaklarını birbirine karıştırmayın.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Başa dön
enesborankurt
Üye
Mesajlar: 37
Kayıt: 13 Oca 2016 10:53

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen enesborankurt »

freeman35 yazdı:delphi işletim sistemi değildir. Program ve işletim sisteminin yapacaklarını birbirine karıştırmayın.
haklısınız işletim sistemi değil ama işletim sistemini yöneten program geliştirmemizi sağlamıyor mu zaten delphi benimde buna ihtiyacım var zaten
Başa dön
Kullanıcı avatarı
mustafasoy
Üye
Mesajlar: 154
Kayıt: 02 Ağu 2013 05:00
Konum: istanbul
İletişim:
İletişim mustafasoy

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen mustafasoy »

http://www.ko-fox.com/delphi/294-delphi ... e-lan.html şu linkte detaylı anlatmışlar.
Nasıl ki Soru sorarak öğrendiyseniz , öğrendiklerinizi cevap vererek öğretiniz.
Başa dön
Kullanıcı avatarı
G.Arkas
Üye
Mesajlar: 829
Kayıt: 01 Eki 2007 07:16
Konum: İstanbul
İletişim:
İletişim G.Arkas

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen G.Arkas »

Client server mantığı ile açık bilgisayarı kolaylıkla kapatabilirsin ancak kapalı bilgisayarı elbette açamazsın çünkü kapalı bilgisayarda uygulama çalışmayacak doğal olarak :) bunun için @mustafasoy paylaştuğı gibi magic pakwt gönderebilirsin icmp ile. Ancak anakartların wol özelliği olmalı.
Resim
Başa dön
enesborankurt
Üye
Mesajlar: 37
Kayıt: 13 Oca 2016 10:53

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen enesborankurt »

Tşk ederim hallettim farklı bir mantıkla
Başa dön
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2380
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen freeman35 »

imzamda kırmızı ve büyük puntolarla yazdığımmı okudun mu?
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Başa dön
enesborankurt
Üye
Mesajlar: 37
Kayıt: 13 Oca 2016 10:53

Re: delphi de başka bir bilgisayarı kapatıp aça bilirmiyiz

Mesaj gönderen enesborankurt »

AnaMenu

Kod: Tümünü seç

object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = 'WOL'
  ClientHeight = 153
  ClientWidth = 216
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001000800680500001600000028000000100000002000
    0000010008000000000040050000000000000000000000010000000100000000
    00000099FF000000CC0000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0101010101010101010101010000000001020202020202020202020100000000
    0102010101010101010101010000000001020100000000000000000000000000
    0102010000000000000000000000000001020100000000000000000000000000
    0102010000000000000000000000000001020202020202020000000000000000
    0102020202020202000000000000000001020100000000000000000000000000
    0102010000000000000000000000000001020100000000000000000000000000
    0102010000000000000000000000000001020101010101010101010100000000
    010202020202020202020201000000000101010101010101010101010000C003
    FFFFC003FFFFC003FFFFC7FFFFFFC7FFFFFFC7FFFFFFC7FFFFFFC03FFFFFC03F
    FFFFC7FFFFFFC7FFFFFFC7FFFFFFC7FFFFFFC003FFFFC003FFFFC003FFFF}
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object btnWOL: TButton
    Left = 8
    Top = 102
    Width = 200
    Height = 43
    Caption = 'Wake up!'
    TabOrder = 0
    OnClick = btnWOLClick
  end
  object edMac: TLabeledEdit
    Left = 8
    Top = 24
    Width = 200
    Height = 24
    EditLabel.Width = 66
    EditLabel.Height = 16
    EditLabel.Caption = 'Mac Adress'
    TabOrder = 1
    Text = '00-25-64-E8-C5-9A'
  end
  object edPort: TLabeledEdit
    Left = 8
    Top = 72
    Width = 200
    Height = 24
    EditLabel.Width = 50
    EditLabel.Height = 16
    EditLabel.Caption = 'UDP Port'
    TabOrder = 2
    Text = '9'
  end
end

Kod: Tümünü seç

program WakeOnLan;

uses
  Vcl.Forms,
  Main in 'Main.pas' {frmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.Title := 'WakeOnLan';
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

Kod: Tümünü seç

	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
		<PropertyGroup>
			<ProjectGuid>{53590E6B-7C13-4223-B479-835ACF59DB80}</ProjectGuid>
			<ProjectVersion>13.4</ProjectVersion>
			<FrameworkType>VCL</FrameworkType>
			<MainSource>WakeOnLan.dpr</MainSource>
			<Base>True</Base>
			<Config Condition="'$(Config)'==''">Release</Config>
			<Platform Condition="'$(Platform)'==''">Win32</Platform>
			<TargetedPlatforms>1</TargetedPlatforms>
			<AppType>Application</AppType>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
			<Base_Win64>true</Base_Win64>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
			<Base_Win32>true</Base_Win32>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
			<Cfg_1>true</Cfg_1>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
			<Cfg_1_Win32>true</Cfg_1_Win32>
			<CfgParent>Cfg_1</CfgParent>
			<Cfg_1>true</Cfg_1>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
			<Cfg_2>true</Cfg_2>
			<CfgParent>Base</CfgParent>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
			<Cfg_2_Win32>true</Cfg_2_Win32>
			<CfgParent>Cfg_2</CfgParent>
			<Cfg_2>true</Cfg_2>
			<Base>true</Base>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Base)'!=''">
			<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
			<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
			<Manifest_File>None</Manifest_File>
			<VerInfo_Locale>1033</VerInfo_Locale>
			<DCC_UsePackage>bindcompfmx;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;bindcomp;inetdb;DBXInterBaseDriver;DataSnapCommon;DataSnapClient;DataSnapServer;DataSnapProviderClient;xmlrtl;DbxCommonDriver;IndyProtocols;DBXMySQLDriver;dbxcds;soaprtl;FMXTee;bindengine;DBXOracleDriver;dsnap;DBXInformixDriver;IndyCore;FmxTeeUI;DBXFirebirdDriver;inet;inetdbxpress;DBXSybaseASADriver;dbexpress;DataSnapIndy10ServerTransport;IPIndyImpl;$(DCC_UsePackage)</DCC_UsePackage>
			<Icon_MainIcon>WakeOnLan_Icon.ico</Icon_MainIcon>
			<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
			<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
			<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
			<DCC_E>false</DCC_E>
			<DCC_N>false</DCC_N>
			<DCC_S>false</DCC_S>
			<DCC_F>false</DCC_F>
			<DCC_K>false</DCC_K>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Base_Win64)'!=''">
			<DCC_UsePackage>DBXOdbcDriver;DBXSybaseASEDriver;vclimg;vclactnband;vcldb;bindcompvcl;vcldsnap;vclie;vcltouch;DBXDb2Driver;websnap;VclSmp;vcl;DBXMSSQLDriver;dsnapcon;vclx;webdsnap;$(DCC_UsePackage)</DCC_UsePackage>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Base_Win32)'!=''">
			<DCC_UsePackage>vcldbx;TeeDB;vclib;inetdbbde;Tee;DBXOdbcDriver;svnui;ibxpress;DBXSybaseASEDriver;vclimg;PowerPfdPackage;vclactnband;vcldb;TeeUI;bindcompvcl;vcldsnap;vclie;vcltouch;DBXDb2Driver;websnap;vclribbon;VclSmp;vcl;DataSnapConnectors;CloudService;DBXMSSQLDriver;dsnapcon;vclx;webdsnap;svn;bdertl;adortl;$(DCC_UsePackage)</DCC_UsePackage>
			<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_1)'!=''">
			<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
			<DCC_Optimize>false</DCC_Optimize>
			<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
			<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
			<DCC_RemoteDebug>true</DCC_RemoteDebug>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
			<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
			<DCC_RemoteDebug>false</DCC_RemoteDebug>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_2)'!=''">
			<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
			<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
			<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
			<DCC_DebugInformation>false</DCC_DebugInformation>
		</PropertyGroup>
		<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
			<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
		</PropertyGroup>
		<ItemGroup>
			<DelphiCompile Include="$(MainSource)">
				<MainSource>MainSource</MainSource>
			</DelphiCompile>
			<DCCReference Include="Main.pas">
				<Form>frmMain</Form>
				<FormType>dfm</FormType>
			</DCCReference>
			<BuildConfiguration Include="Release">
				<Key>Cfg_2</Key>
				<CfgParent>Base</CfgParent>
			</BuildConfiguration>
			<BuildConfiguration Include="Base">
				<Key>Base</Key>
			</BuildConfiguration>
			<BuildConfiguration Include="Debug">
				<Key>Cfg_1</Key>
				<CfgParent>Base</CfgParent>
			</BuildConfiguration>
		</ItemGroup>
		<ProjectExtensions>
			<Borland.Personality>Delphi.Personality.12</Borland.Personality>
			<Borland.ProjectType/>
			<BorlandProject>
				<Delphi.Personality>
					<VersionInfo>
						<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
						<VersionInfo Name="AutoIncBuild">False</VersionInfo>
						<VersionInfo Name="MajorVer">1</VersionInfo>
						<VersionInfo Name="MinorVer">0</VersionInfo>
						<VersionInfo Name="Release">0</VersionInfo>
						<VersionInfo Name="Build">0</VersionInfo>
						<VersionInfo Name="Debug">False</VersionInfo>
						<VersionInfo Name="PreRelease">False</VersionInfo>
						<VersionInfo Name="Special">False</VersionInfo>
						<VersionInfo Name="Private">False</VersionInfo>
						<VersionInfo Name="DLL">False</VersionInfo>
						<VersionInfo Name="Locale">2067</VersionInfo>
						<VersionInfo Name="CodePage">1252</VersionInfo>
					</VersionInfo>
					<VersionInfoKeys>
						<VersionInfoKeys Name="CompanyName"/>
						<VersionInfoKeys Name="FileDescription"/>
						<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
						<VersionInfoKeys Name="InternalName"/>
						<VersionInfoKeys Name="LegalCopyright"/>
						<VersionInfoKeys Name="LegalTrademarks"/>
						<VersionInfoKeys Name="OriginalFilename"/>
						<VersionInfoKeys Name="ProductName"/>
						<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
						<VersionInfoKeys Name="Comments"/>
					</VersionInfoKeys>
					<Source>
						<Source Name="MainSource">WakeOnLan.dpr</Source>
					</Source>
					<Excluded_Packages>
						<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
						<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
					</Excluded_Packages>
				</Delphi.Personality>
				<Deployment>
					<DeployFile LocalName="Win32\Release\WakeOnLan.rsm" Configuration="Release" Class="DebugSymbols">
						<Platform Name="Win32">
							<RemoteName>WakeOnLan.rsm</RemoteName>
						</Platform>
					</DeployFile>
					<DeployFile LocalName="Win32\Debug\WakeOnLan.exe" Configuration="Debug" Class="ProjectOutput">
						<Platform Name="Win32"/>
					</DeployFile>
					<DeployFile LocalName="Win32\Release\WakeOnLan.exe" Configuration="Release" Class="ProjectOutput">
						<Platform Name="Win32"/>
					</DeployFile>
					<DeployFile LocalName="Win32\Debug\WakeOnLan.rsm" Configuration="Debug" Class="DebugSymbols">
						<Platform Name="Win32">
							<RemoteName>WakeOnLan.rsm</RemoteName>
						</Platform>
					</DeployFile>
					<DeployClass Name="ProjectOutput" Required="true">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>1</Operation>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
						</Platform>
					</DeployClass>
					<DeployClass Name="DependencyPackage" Required="true">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>1</Operation>
							<Extensions>.dylib</Extensions>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
							<Extensions>.bpl</Extensions>
						</Platform>
					</DeployClass>
					<DeployClass Name="DependencyModule">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>1</Operation>
							<Extensions>.dylib</Extensions>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
							<Extensions>.dll;.bpl</Extensions>
						</Platform>
					</DeployClass>
					<DeployClass Name="ProjectOSXInfoPList">
						<Platform Name="OSX32">
							<RemoteDir>Contents</RemoteDir>
							<Operation>1</Operation>
						</Platform>
					</DeployClass>
					<DeployClass Name="File">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>0</Operation>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
						</Platform>
					</DeployClass>
					<DeployClass Name="DebugSymbols">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>1</Operation>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
						</Platform>
					</DeployClass>
					<DeployClass Name="DependencyFramework">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>1</Operation>
							<Extensions>.framework</Extensions>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
						</Platform>
					</DeployClass>
					<DeployClass Name="AdditionalDebugSymbols">
						<Platform Name="OSX32">
							<RemoteDir>Contents\MacOS</RemoteDir>
							<Operation>1</Operation>
						</Platform>
						<Platform Name="Win32">
							<Operation>0</Operation>
						</Platform>
					</DeployClass>
					<DeployClass Name="ProjectOSXResource">
						<Platform Name="OSX32">
							<RemoteDir>Contents\Resources</RemoteDir>
							<Operation>1</Operation>
						</Platform>
					</DeployClass>
					<ProjectRoot Name="$(PROJECTNAME).app" Platform="OSX32"/>
					<ProjectRoot Name="$(PROJECTNAME)" Platform="Win64"/>
					<ProjectRoot Name="$(PROJECTNAME)" Platform="Win32"/>
				</Deployment>
				<Platforms>
					<Platform value="Win64">False</Platform>
					<Platform value="Win32">True</Platform>
				</Platforms>
			</BorlandProject>
			<ProjectFileVersion>12</ProjectFileVersion>
		</ProjectExtensions>
		<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
		<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
		<Import Condition="Exists('$(MSBuildProjectName).deployproj')" Project="$(MSBuildProjectName).deployproj"/>
	</Project>

Kolay Gelsin...
Başa dön
Cevapla

“Programlama” sayfasına dön