修改

src/ePortMsg.erl

@@ -9,6 +9,7 @@ port_call(Port, Msg) ->
    Port ! {self(), {command, term_to_binary(Msg)}},
    receive
       {Port, {data, DataBin}} ->
+         io:format("~p~n", [DataBin]),
          {ok, binary_to_term(DataBin)};
       {Port, closed} ->
          {error, closed};

src/ePortSrv.erl

@@ -45,7 +45,7 @@ tt() ->
             ignore
     end,
 
-    ePortMsg:port_call(get(ppp), term_to_binary({$g, 12432, 4324})).
+    ePortMsg:port_call(get(ppp), {$g, 12432, 4324}).
 
 tt(CmdId) ->
     case get(ppp) of
@@ -57,13 +57,13 @@ tt(CmdId) ->
     end,
     case CmdId of
         $g ->
-            ePortMsg:port_call(get(ppp), term_to_binary({CmdId, 12432, 4324}));
+            ePortMsg:port_call(get(ppp), {CmdId, 12432, 4324});
         $u ->
-            ePortMsg:port_call(get(ppp), term_to_binary({CmdId, 12432, 4324}));
+            ePortMsg:port_call(get(ppp), {CmdId, 12432, 4324});
         $t ->
             ignore;
         _ ->
-            ePortMsg:port_call(get(ppp), term_to_binary({CmdId, 12432, 4324}))
+            ePortMsg:port_call(get(ppp), {CmdId, 12432, 4324})
     end.
 
 %%-----------------------------------------------------------------