Changeset 4 for trunk/URouterOS.pas

Timestamp:

Dec 3, 2009, 9:09:58 AM (14 years ago)

Author:

george

Message:

• Modified: Minor changes.

File:

• trunk/URouterOS.pas (modified) (3 diffs)

trunk/URouterOS.pas

@@ -84 +84 @@
 var
   I: Integer;
+  Temp: string;
 begin
   I := 1;
@@ -115 +116 @@
   until I >= Length(Buffer);
 
+  Temp := Trim(Line);
   if Line <> '' then
   case FConnectionState of
@@ -131 +133 @@
     csConnectedCommandProcessing: begin
       if Line[1] = '[' then begin
-        if not FirstResponseBracket then FirstResponseBracket := True
-        else ChangeState(csConnectedReady)
+        //if not FirstResponseBracket then FirstResponseBracket := True
+        //else ChangeState(csConnectedReady)
+        if (Line[1] = '[') and (Temp[Length(Temp)] = '>') then
+          ChangeState(csConnectedReady);
       end else CommandResponse.Add(Line);
     end;
   end;
 end;
-
 
 destructor TRouterOS.Destroy;