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?
- Read and write X12 documents
- Navigate documents using XPath notation
- Translate X12 to and from XML or JSON
- Support for all major scheme standards like BizTalk, SEF, Altova, and more
- Fast, robust, secure components
- Full documentation and samples
- and more
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.