Hola de nuevo;
El error que me da es el siguiente:
Project Project1.exe raised exception class EOleException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Proceso stopped. Use Step or Run to Continue.
y tambien me aparece:
Project Project1.exe raised exception class EOleException with message
'Objeto Parameter mal definido. Se proporcionó información incompleta o incoherente'. Proceso stopped. Use Step or Run to Continue.
El código utilizado es este:
Código:
fecha:=GetLocalT;
Query1.SQL.Add('INSERT INTO misvideos VALUES (:fecha, :nombrevideo, :ruta)');
Query1.Parameters.ParamByName('fecha').value:=StrToDate(fecha);
Query1.Parameters.ParamByName('nombrevideo').value:=nombrevideo;
Query1.Parameters.ParamByName('ruta').value:='c:video';
Query1.ExecSQL;
donde la funcion GetLocalT tiene como código:
Código:
function GetLocalT: String;
var
stSystemDate : TSystemTime;
begin
Windows.GetLocalTime( stSystemDate );
Result := DateToStr( SystemTimeToDateTime( stSystemDate ) );
end;
Bueno, si podeis ayudarme sería genial, y si no gracias igualmente:-)