freepascal.ru

Код: Выделить всё

ECR.NewDocument;
ECR.Password:='30';
ECR.Mode:= 0;
ECR.SetMode;
ECR.Caption:='Тестовая строка';
ECR.Alignment:= 1;
ECR.TextWrap:= 1;
ECR.PrintString; 

Код: Выделить всё

S:='Тестовая строка';
ECR.Caption:=S

Код: Выделить всё

var
  WS:widestring;
  S:string;
begin
  S:='Тестовая строка';  //Ну это может как параметр в процедуру быть
  WS:=S;
 ECR.Caption:=WS;

Код: Выделить всё

 Uses IdMultipartFormData, IdHTTP


procedure TForm22.BitBtn3Click(Sender: TObject);
    const
  body = '<?xml version="1.0" encoding="UTF-8"?> ' +
        '<ns:Documents Version="1.0"' +
        ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +
        ' xmlns:ns="http://fsrar.ru/WEGAIS/WB_DOC_SINGLE_01"' +
        ' xmlns:qp="http://fsrar.ru/WEGAIS/QueryParameters"> ' +
        '<ns:Owner>' +
        '<ns:FSRAR_ID>020000020000</ns:FSRAR_ID>' +
        '</ns:Owner>' +
        '<ns:Document>' +
        '<ns:QueryResendDoc>' +
        '<qp:Parameters>' +
        '<qp:Parameter>' +
        '<qp:Name>WBREGID</qp:Name>' +
        '<qp:Value>TTN-03100000000</qp:Value>' +
        '</qp:Parameter>' +
        '</qp:Parameters>' +
        '</ns:QueryResendDoc>' +
        '</ns:Document>' +
        '</ns:Documents>';
var
     http : TIdHttp;
     req  : TIdMultiPartFormDataStream;
     data : TStream;
     ip_port:string;
begin

    ip_port:='http://'+inipras.ReadString('Options','fsrarip','')+':'+inipras.ReadString('Options','fsrarport','')+'/';

      try
         http := TIdHTTP.Create(nil);
            try
         data := TBytesStream.Create(TEncoding.Utf8.GetBytes(body));
        try
       req := TIdMultiPartFormDataStream.Create;
        try
    req.AddFormField('xml_file', 'text/xml', 'utf-8', data, 'QueryResendDoc.xml');
    http.Post(ip_port+'opt/in/QueryResendDoc', req);
     finally
         req.free;
       end;
      finally
       data.Free;
       end;
      finally
       http.Free;
      end;

   Except
  on Exception do Memo1.Lines.Text:= idHTTP1.Response.RawHeaders.GetText ;

end;

end;