BabelFish实例

uses Babelintf; procedure TForm1.Button1Click(Sender: TObject); begin EditTarget.Text := (HTTPRIO1 as BabelFishPortType). BabelFish(ComboBoxType.Text, EditSource.Text); end; end.