السلام عليكم ورحمة الله
عندي جهاز سيرفر برقم 11.11.10.1 اريد ان اصل للقرص الصلب عن طريق الدلفي
هل يجب مشاركة القرص لفعل ذلك ...؟
ام هناك ادوات او طرق اخرى ...؟
السلام عليكم
هل سألت Chatgtp?
و عليكم السلام
FTP
SMB
أو يمكنك برمجة بريمج (مثلا a windows service) تضعه على السرفر ليقوم بإرسال محتويات القرص الصلب إلى برنامجك
(06-05-2023, 12:59 AM)wadoud كتب : [ -> ]السلام عليكم
هل سألت Chatgtp?
على كل حال سألت Chatgtp و كانت الإجابة التالي :
كود :
To access the hard drive of a remote server in Delphi, you would typically need to share the disk on the server and access it through network shares. However, please note that the remote access setup may vary depending on the server's operating system and network configuration.
Here are some general steps you can follow to access the remote hard drive using network shares in Delphi:
1. On the server, ensure that the disk or folder you want to access is shared on the network. This involves enabling file and folder sharing in the server's operating system settings.
2. Make sure the server and your local machine are on the same network.
3. In your Delphi application, you can use network functions and components to access the shared resources. For example, you can use the `WNetAddConnection2` function from the Windows API to establish a connection to a shared drive.
Here's an example code snippet showing how to connect to a remote shared drive in Delphi:
```delphi
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
function WNetAddConnection2(lpNetResource: PNetResource; lpPassword, lpUsername: PWideChar; dwFlags: DWORD): DWORD; stdcall; external 'mpr.dll' Name 'WNetAddConnection2W';
procedure TForm1.Button1Click(Sender: TObject);
var
NetResource: TNetResource;
Res: DWORD;
begin
ZeroMemory(@NetResource, SizeOf(NetResource));
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := 'Z:';
NetResource.lpRemoteName := '\\11.11.10.1\SharedFolder';
Res := WNetAddConnection2(@NetResource, 'password', 'username', 0);
if Res = NO_ERROR then
ShowMessage('Connection established.')
else
ShowMessage('Error connecting: ' + IntToStr(Res));
end;
```
Make sure to replace `'\\11.11.10.1\SharedFolder'` with the actual path of the shared resource on the server.
4. Once you have established the connection, you will be able to access the remote disk or folder as if it were on your own machine.
It's important to note that these steps are a general guideline and may vary depending on your network environment and server configuration. Additionally, ensure that you have the necessary permissions to access the shared resource on the remote server.
If you are unable to share the disk on the server or if you want to explore alternative options, you can also consider using file transfer protocols such as FTP (File Transfer Protocol) or SFTP (Secure File Transfer Protocol) to access and transfer files from the remote server. In Delphi, there are available components and libraries that make it easier to implement FTP or SFTP functionality in your application.