Delphi TadoQuery - преобразование типов параметров
Я отправляю с параметрами Jquery и Ajax с веб-страницы на мой веб-сервер Delphi. Эти параметры будут использоваться в select, но как только я доберусь до TADOQ.Open;
я получаю исключение, которое содержит сообщение под разделом кода.
Я новичок в Delphi, поэтому мне нелегко понять, как работать с UnicodeString
, AnsiString
а также String
, Также я не понимаю, почему это говорит double
когда я его нигде не использую.
Есть ли простой способ решить проблему? (Небольшой код и легко понять)
РЕДАКТИРОВАТЬ: добавлен процесс перед вызовом SearchChosen();
KoyoWebSqlReader:=CKoyoWebSqlReader.Create;
KoyoWebSqlReader.OpenConnection;
Response.ContentType:='application/json';
Txt:=KoyoWebSqlReader.SearchChosen(
StrToInt(SplitString(Request.ContentFields[0], '=')[1]),
StrToDateTime(SplitString(Request.ContentFields[1], '=')[1])
).toJsonString;
Response.Content:=Txt;
KoyoWebSqlReader.CloseConnection;
// -----
function CKoyoWebSqlReader.SearchChosen(TicketNumber:Integer; Start:TDateTime):CKoyoMeasurement;
var Search:TADOQuery;
var Measurement:CKoyoMeasurement;
begin
Measurement:=CKoyoMeasurement.Create;
Search:=TADOQuery.Create(nil);
Search.Connection:=Connection;
Search.SQL.Clear;
Search.SQL.Text:=
'SELECT * FROM Measurements WHERE TicketNumber = :TicketNumber AND Start = :Start;';
Search.Parameters.ParamByName('TicketNumber').Value:=TicketNumber;
Search.Parameters.ParamByName('Start').Value:=Start;
try
Search.Open;
// Fill Measurement
except on EX:Exception do
begin
// Log Exception
end;
end;
Search.Close;
Result:=Measurement;
end;
Вариант типа (UnicodeString) не может быть преобразован в (Double)