Zeoslib Portal

Code: Select all

ZUrl.pas

procedure TZURL.SetURL(const Value: string);
var
..
begin
  APrefix := '';
  AProtocol := '';
  AHostName := 'localhost'; is preventing to use db in embedded mode, should be changed to AHostName := ''

Code: Select all

my version of token detection
ZGenericSqlToken.pas

function TZGenericSQLQuoteState.NextToken(Stream: TStream;
  FirstChar: Char; Tokenizer: TZTokenizer): TZToken;
var
  ReadChar: Char;
  LastChar: Char;
  CountDoublePoint,CountSlash : integer;
  DecodedString: string;
  DummyDateTime: TDateTime;
begin
  Result.Value := FirstChar;
  LastChar := #0;
  CountDoublePoint := 0;
  CountSlash := 0;

  while Stream.Read(ReadChar, SizeOf(Char)) > 0 do
  begin
    if (LastChar = FirstChar) and (ReadChar <> FirstChar) then
    begin
      Stream.Seek(-SizeOf(Char), soFromCurrent);
      Break;
    end;
    Result.Value := Result.Value + ReadChar;
    if (LastChar = FirstChar) and (ReadChar = FirstChar) then
      LastChar := #0
    else LastChar := ReadChar;
  end;

  if FirstChar = '"' then
    Result.TokenType := ttWord
  else Result.TokenType := ttQuoted;

  DecodedString := DecodeString(Result.Value,'"');

  if TryStrToDateTime(DecodedString, DummyDateTime) then
  begin
    Result.TokenType := ttDateTime;
    Result.Value := DecodedString;
  end else
  if TryStrToTime(DecodedString, DummyDateTime) then
  begin
    Result.TokenType := ttTime;
    Result.Value := DecodedString;
  end else
  if TryStrToDate(DecodedString, DummyDateTime) then
  begin
    Result.TokenType := ttDate;
    Result.Value := DecodedString;
  end;
end;