Einzelnen Beitrag anzeigen

hirnstroem

Registriert seit: 21. Sep 2005
297 Beiträge
 
Delphi 2006 Professional
 
#1

Intraweb - auf Ereignis reagieren

  Alt 17. Aug 2006, 13:43
'loha Folks,

folgendes Szenario:

Über ein Webinterface wird eine Nachricht an ein GPI (Hardware, welche in diesem Falle an einem CAN Bus hängt) geschickt. Diese GPI gibt Antwort.

Nun möchte ich nichts anderes tun, als das OnRxChar Ereignis (vom Comport), welches eine Antwort mitbringt, in einem Memo auf dem Webinterface anzuzeigen.

Nun bin ich etwas planlos unterwegs und finde nicht heraus, wie ich diese Antwort im Browser anzeigen kann.

Das Webinterface hat ein Memo Objekt, welches eigentlich für diese Antwort vorgesehen wäre.

Delphi-Quellcode:
procedure TIW_Main.ComPortRxChar(Sender: TObject; Count: Integer);
var
  InputBuffer: String;
  i,Index : integer;
begin
  ComPort.ReadStr(InputBuffer, Count);
  for i := 1 to Count do
  begin
    if InputBuffer[i] <> #13 then
    begin
      CAN232OutputBuffer := CAN232OutputBuffer + InputBuffer[i];
    end
    else
    begin
      while Pos('#7', CAN232OutputBuffer) > 0 do
        CAN232OutputBuffer[Pos('#7', CAN232OutputBuffer)] := '0';
      if (Length(CAN232OutputBuffer) > 1) and
         (CAN232OutputBuffer[1] <> 'A') then
      begin
        IWMemo1.Lines.Add(#13);
        IWMemo1.Lines.Add(CAN232OutputBuffer); // hier ist die Antwort drin, diese müsste noch auf dem IWMemo1 angezeigt werden.
      end;
      CAN232OutputBuffer := '';
      //update page
      IWMemo1.Show;
    end;
  end;
end;
Die eigentliche Antwort ist in diesem CAN232OutputBuffer drin. Wenn ich da einen Brakepoint setze und dann nachschaue, ist auch definitiv das drin, was ich auf dem Webinterface dargestellt haben möchte.

Muss ich die Seite einfach erneut an den Browser senden? Wenn ja, wie? Oder geht das anders?

Grüsse
hirnstroem
  Mit Zitat antworten Zitat