xsharp.eu

Code: Select all

                
XSharp.Core.Functions.SetAnsi(false);
XSharp.Core.Functions.SetExclusive(false);
XSharp.Core.Functions.SetDateFormat("MM/DD/YY");
XSharp.Core.Functions.SetEpoch(1990);
XSharp.Core.Functions.SetDeleted(true);

QW10DocumentConverter converter = new QW10DocumentConverter();

DbServer mwriter = new DbServer(@"D:LiveQWPartsM.DBF", false, false, "DBFCDX");

if (mwriter.Used)
{
     foreach (VMQW10PartsMItem item in itemlist)
     {
          mwriter.Append();
          byte[] bytespec = converter.ConvertStringTextToWordDoc(item.Spec);
          mwriter.FieldPutBytes("SDESCR", bytespec);
     }
     mwriter.Commit();
     mwriter.Close();
}

Code: Select all

int codepage = XSharp.RuntimeState.DosCodePage;
AdjustBinaryData.Initialize(Encoding.GetEncoding(codepage));
....
byte[] bytespec = converter.ConvertStringTextToWordDoc(item.Spec);
mwriter.FIELDPUT("SDESCR", AdjustBinaryData.BeforeSaveBytes(bytespec));
....

public static class AdjustBinaryData
{
    private static Encoding enc = Encoding.Default;

    public static void Initialize(Encoding encoding)
    {
        enc = encoding;
    }

    public static string BeforeSaveBytes(byte[] input)
    {
        return enc.GetString(input);
    }

    public static byte[] AfterReadToBytes(string input)
    {
        return enc.GetBytes(input);
    }
}