各位前輩們   小弟又有新的麻煩了，因為客戶要求要將單機的程式，改為網路版。之前我是使用 Mscomm 元件來控制我的印表機，現在要改成網路版，不知道有啥方法可以將控制命令送到另外一台電腦所分享出來的印表機？   我有嘗試過將命令送到另外一台電腦，可以收到訊息，但是無法送到它所分享出來的周邊，有經驗的大大，幫忙回答一下，謝謝。  努力學習中....

------
努力學習中....

引言: 各位前輩們 小弟又有新的麻煩了，因為客戶要求要將單機的程式，改為網路版。之前我是使用 Mscomm 元件來控制我的印表機，現在要改成網路版，不知道有啥方法可以將控制命令送到另外一台電腦所分享出來的印表機？ 我有嘗試過將命令送到另外一台電腦，可以收到訊息，但是無法送到它所分享出來的周邊，有經驗的大大，幫忙回答一下，謝謝。 努力學習中.... < face="Verdana, Arial, Helvetica"> 可行的作法,可以利用TCP/IP 的元件(如indy or D5 TServerSocket/TClientSocket), 在裝印表機上的pc上執行 Server端 的程式(背景執行),控制的pc上執行Client端的程式,由client負責發送控制碼至server端, 而server端上收到的控制碼則送往本地的周邊設備 ps.可以參考delphi上的範例 'Chat' example,應該改一改就能用了

引言: 可行的作法,可以利用TCP/IP 的元件(如indy or D5 TServerSocket/TClientSocket), 在裝印表機上的pc上執行 Server端 的程式(背景執行),控制的pc上執行Client端的程式,由client負責發送控制碼至server端, 而server端上收到的控制碼則送往本地的周邊設備 ps.可以參考delphi上的範例 'Chat' example,應該改一改就能用了

我有嘗試過在WINDOWS下，用檔案總管，將文字檔copy 到該周邊的網路路徑，該周邊有接收到文字檔的內容，因此，是否有元件可以做到這樣的功能？如果這麼做的話，就不必在 SERVER 端執行背景程式了，不知道我的這個想法，有辦法實現嗎？？ 努力學習中....

引言:

引言: 可行的作法,可以利用TCP/IP 的元件(如indy or D5 TServerSocket/TClientSocket), 在裝印表機上的pc上執行 Server端 的程式(背景執行),控制的pc上執行Client端的程式,由client負責發送控制碼至server端, 而server端上收到的控制碼則送往本地的周邊設備 ps.可以參考delphi上的範例 'Chat' example,應該改一改就能用了

我有嘗試過在WINDOWS下，用檔案總管，將文字檔copy 到該周邊的網路路徑，該周邊有接收到文字檔的內容，因此，是否有元件可以做到這樣的功能？如果這麼做的話，就不必在 SERVER 端執行背景程式了，不知道我的這個想法，有辦法實現嗎？？ 努力學習中.... < face="Verdana, Arial, Helvetica"> 若是這樣的話,用dos 模式下的copy 命令先試一下可不可行 copy cmd.txt \\pc\Device_name 若上述方法可行的話,就很簡單了, 在程式內單純用一個 ShellExecute 的命令就行了,不必用到元件 cmdline :='copy cmd.txt \\pc\device_name';

procedure TfrmMain.ExecuteShellCommand(cmdline: string; hidden: Boolean);
const
  flags: array[Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
var
  cmdbuffer: array[0..MAX_PATH] of Char;
begin
  GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));
  ShellExecute(0, 'open', cmdbuffer, PChar('/c'   cmdline), nil, flags[hidden]);
end;

引言: 若是這樣的話,用dos 模式下的copy 命令先試一下可不可行 copy cmd.txt \\pc\Device_name 若上述方法可行的話,就很簡單了, 在程式內單純用一個 ShellExecute 的命令就行了,不必用到元件 cmdline :='copy cmd.txt \\pc\device_name';

procedure TfrmMain.ExecuteShellCommand(cmdline: string; hidden: Boolean);
const
  flags: array[Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
var
  cmdbuffer: array[0..MAX_PATH] of Char;
begin
  GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));
  ShellExecute(0, 'open', cmdbuffer, PChar('/c'   cmdline), nil, flags[hidden]);
end;

上述方法可行！！ 感謝您的幫忙!! 努力學習中....