Ver Mensaje Individual
  #5  
Antiguo 13-12-2018
usuario1000 usuario1000 is offline
Miembro
 
Registrado: nov 2016
Posts: 70
Reputación: 3
usuario1000 Va por buen camino
Perdonad mi torpeza, pero no lo consigo, tengo el siguiente codigo:
Código Delphi [-]
procedure TFExtractoCoste.bSalirClick(Sender: TObject);
var
  funcion: Tservermethods1client;
  s:string;
  TablaCadena:TStringStream;
begin

  if tablaRojos.RecordCount = 0 then
        exit;

  funcion := Tservermethods1client.Create
    (FModuloDatos.SQLConnection.DBXConnection);

  TablaCadena := TStringStream.Create(s);
  TablaRojos.SaveToStream(TablaCadena);
  funcion.enviarTablarojos(tablaCadena);

    close;
end;


Me da error, no logro enviar una MemTable a través de la funcion para que llegue al servidor.


Gracias a todos
Responder Con Cita