Site icon Embarcadero RAD Studio, Delphi, & C++Builder Blogs

Enterprise-Grade X12 Library To Work With Electronic Data Interchange

enterprise grade x12 library to work with electronic data interchange

The Software Development world is big and thousands of different technologies, standards are built for every problem. For instance, schema standards like BizTalk, SEF, Bots, and Altova to work with Electronic data interchange.

IPWorks X12 provides the ultimate versatility for developers and businesses interested in facilitating their software systems with Internet EDI (X12) parsing, translation, and message generation abilities. IPWorks X12 library is a third-party commercial component set for RAD Studio developers. 

What do you get from the IPWorks X12 library?

procedure TFormX12translator.btnToX12Click(Sender: TObject);
var
  inputString: String;
  i: Integer;
begin
  StatusBar1.Panels[0].Text := '';

  try
    x12X12Translator1.Reset();

    x12X12Translator1.InputFormat := Tx12X12TranslatorInputFormats.xifXML;
    x12X12Translator1.OutputFormat := Tx12X12TranslatorOutputFormats.xofX12;

    if (btnXmlFile.Checked) then
      x12X12Translator1.InputFile := txtXmlFile.Text
    else
    begin
      inputString := '';
      for i := 0 to tMemoXmlString.Lines.Count - 1 do
      begin
        inputString := inputString + tMemoXmlString.Lines[i];
      end;
      x12X12Translator1.InputData := inputString;
    end;

    if (btnX12File.Checked) then
    begin
      x12X12Translator1.OutputFile := txtX12File.Text;
      x12X12Translator1.Overwrite := chkX12Overwrite.Checked;
    end;

    x12X12Translator1.Translate;

    tMemoX12String.Text := x12X12Translator1.OutputData;

  finally

  end;

  StatusBar1.Panels[0].Text := 'Translated To X12';
end;

Be sure to head over and check out the IPWorks X12 library on the GetIt portal and download it in the IDE using the GetIt Package Manager.

Exit mobile version