Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Binär Datei über RS232 versenden Delphi

   
    by itblumi, 12. Jul 2009
  :dancer: :hello:
  Ich hab den Übeltäter gefunden, es war eine ander Datei mit dem selben Namen und mit der gleichen Funktionsnamen, aber unterschiedlichem Inhalt.
  
  Ich Danke euch allen für eure Hilfe vllt. kann ja diese Funktion noch anderen helfen.
  
  Viele Grüße
  itblumi
• Forum: Programmieren allgemein

  Re: Binär Datei über RS232 versenden Delphi

   
    by itblumi, 11. Jul 2009
  Ich lasse sie ja weg und komme irgendwie trotzdem nicht auf den Wert.
  
  Hier mal noch mein Funktionsaufruf mit dem ich teste.
  
  
  
  procedure TFWork.TestCRCClick(Sender: TObject);
  var
  AFile, AStr: String;
  SendByte: Byte;
• Forum: Programmieren allgemein

  Re: Binär Datei über RS232 versenden Delphi

   
    by itblumi, 11. Jul 2009
  Hab jetzt endlich wieder Zeit zum Delphi programmieren und hänge bei der CRC Berechnung.
  
  Danke übrigens für den Tip Klaus CRC XModem ist die Lösung oder sollte sie sein.
  
  Ich komme einfach nicht auf die Checksum die vom PComm Terminal errechnet wird.
  Hier ein Auszug aus einem gesendeten Block:
  
  01 01 FE 18 F0 9F E5 18 F0 9F E5 18 F0 9F E5 18 F0 9F E5 18 F0 9F E5 00 00 00 00 18 F0 9F E5 18...
• Forum: Programmieren allgemein

  Re: Binär Datei über RS232 versenden Delphi

   
    by itblumi, 20. Mai 2009
  Im PComm Terminal machen sie das selbe, aber die Daten die geschickt werden sehen anders aus wie meine, obwohl es die selbe Datei ist.
  Sie benutzen da auch das Protokoll X-Modem crc um Binäre Daten zu verschicken.
  
  Kann es vllt an der Art wie ich die Daten aus der Datei lese liegen?
• Forum: Programmieren allgemein

  Re: Binär Datei über RS232 versenden Delphi

   
    by itblumi, 20. Mai 2009
  Jetzt habe ich wieder das selbe Problem das er sofort nach dem ersten senden den Vorgang abbricht.
  
  
  RedBoot> ^C
  RedBoot> fload
  CCCan't load '<null>': Cancelled
• Forum: Programmieren allgemein

  Re: Binär Datei über RS232 versenden Delphi

   
    by itblumi, 20. Mai 2009
  Ich habe auch so das selbe Problem und zwar das er mit dem ersten gesendeten Byte aus dem Redboot rausspringt und den Versuch abbricht. Das bringt mich in der Hinsicht trotzdem nicht weiter. Eine weiter Möglichkeit für mich wäre. Das ich die Daten direkt mit SendData(Pointer, DataSize) an den ComPort schicke das funktioniert aber auch nicht so wie es sein soll.
  
  Diese Routine sieht dann so aus:...
• Forum: Programmieren allgemein

  Binär Datei über RS232 versenden Delphi

   
    by itblumi, 20. Mai 2009
  Ich versuch seit einiger Zeit eine Binär Datei über eine RS232 Schnittstelle zu versenden, aber aus irgendeinem Grund bricht er nach dem ersten Byte ab.
  Mein Code Bis jetzt:
  
  
  AFileStream := TFileStream.Create(DatName, fmOpenRead);
  try
  DataSize := AFileStream.Size;
  AFileStream.Position := 0;
  CanSend := 1;
  GetMem(DataPtr, CanSend);