Jump to content

KenR

Members
  • Content Count

    142
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by KenR


  1. Thanks Dave but that didn't make any difference. What did is editing the Entitlement.TemplateOSX.xml file and adding:

     

    <key>com.apple.application-identifier</key>
    <string>XXXXXX.YYYYYY</string>
    <key>com.apple.developer.team-identifier</key>
    <string>XXXXXX</string>

    Where XXXXXX is your Team ID and YYYYYY is your Aplication ID.

     

    I have left all of the other stuff in but will experiment with removing it.

     

    Regards,

     

    Ken


  2. 1 hour ago, aehimself said:

    I honestly can not understand this patch. After reverting back to the original files and reapplying it, breakpoints work fine on 64 bit as well, even in a new method of an unsaved unit...

    Very strange. I take it that you just copied the contents of both zips to the bin folder!


  3. Hi,

     

    I have been using TWSocket very successfully for a few years now in a service. It listens for and processes HL7 messages. At one hospital however it seems to hang while it is seemingly not doing anything. I am using a TICSLogger but am not getting any errors. I am presuming this is a socket error. The NHS typically rum a lot of processes on rather underpowered old hardware. Can anyone please point me in the right area as to how I might trap, report and, preferably, have the socket start listening again.

     

    Thanks in advance for any help given.

     

    Ken


  4. From what I remember when playing around with Miletus the settings do not work at design time. Add the fields you want to the grid, you will get an error but ignore it. In the OnCreate event of the form do something like:

      MiletusMSSQLDBDriver1.Server:='Server Name';
      MiletusMSSQLDBDriver1.DataBase:='Database Name';
      MiletusMSSQLDBDriver1.OSAuthent:=True;
    
      //If OSAuthent is False, you'll need to set UserName and Password:
      MiletusMSSQLDBDriver1.UserName:='';
      MiletusMSSQLDBDriver1.Password:='';
    
      MiletusClientDataSet1.DBDriver:=MiletusMSSQLDBDriver1;
      MiletusClientDataSet1.QueryText:='select * from Whatever;';
      MiletusClientDataSet1.IndexName:='Index Name';
    
      WebDataSource1.DataSet:=MiletusClientDataSet1;
      WebDBGrid1.DataSource:=WebDataSource1;

    Add a TWebButton and in the OnClick Event add:

     

      MiletusClientDataSet1.Active:=True;

     

×