Zeoslib Portal

Hi!

Why you insert a BLOB with that high capacity?

Then the code will be SetLength( Result,3 + SrcLength * 2 ); Result[1] := 'x'; // set x Result[2] := ''''; // set Open Quote ihx := 3; // set 1st hex location for I := 1 to SrcLength do begin shx := IntToHex( ord(SrcBuffer^),2 ); // '3E' result[ihx] := shx[1]; Inc( ihx,1 ); // copy '3' result[ihx] :...

Hi Mark,

I think I make a mistake, the code should be

result[ihx] := shx[2]; Inc( ihx,1 ); // Hi Byte
result[ihx] := shx[1]; Inc( ihx,1 ); // Lo Byte

BTW, what is QuotedStr do? Convert ABC to 'ABC' or none?

Regards,
KL Chin

Hi Mark, Unless the PAsniChar was not "1 BYTE", otherwise should be ok, i think. or use SrcBuffer : PChar or PByte instead; Hi guidoaerts, because i started from 0 result[1] := 'x'; result[2+i*2] := shx[1]; result[3+i*2] := shx[2]; Btw, not using I*2 for performance, unless compiler full o...

Hi Mark, Here the code, I had not tested. Pls. veify it. function NewEncodeString( Value : ansistring ) : ansistring; var I : Integer; SrcLength : Integer; // ,DestLength SrcBuffer : PAnsiChar; // , DestBuffer ihx : integer; // IH, shx : ansistring; begin SrcLength := Length(Value); // SrcBuffer := ...

Hi, I think the slow was due to result := result + IntToHex(IH,2); <-- slow process Why not try to convert to a small string and do a mem copy ie. SetLength( Result,Length(SrcData) * 2 ); nchr := 1; ... tmp := IntToHex(IH,2); Result[nchr] := tmp[1]; Result[nchr + 1] := tmp[2]; nchr := nchr + 2; ... ...

Hi btray77,

AutoInc field will depend on SQL server not zeos.

Sorry, wong info

Regards,
KL Chin

Hi,

I think you using the wrong command,

ZQuery1->Close();
ZQuery1->SQL->Text = "INSERT INTO cars(model) VALUES('A3');";
ZQuery1->Open(); <-- sohuld be ZQuery1->ExecSQL( );

Regards,
KL Chin

Hi, Could this a bug or limitation or compatible issue between 6.6x and 6.1x. Here the table structure --------------------------------------------- CREATE TABLE `ctsstkotmst` ( `somRnID` BIGINT(10) UNSIGNED NOT NULL AUTO_INCREMENT, `somDtTm` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00', `somPsID...

Hi, Could this a bug or limitation or compatible issue between 6.6x and 6.1x. Here the table structure --------------------------------------------- CREATE TABLE `ctsstkotmst` ( `somRnID` BIGINT(10) UNSIGNED NOT NULL AUTO_INCREMENT, `somDtTm` DATETIME NOT NULL DEFAULT '0000-00-00 00:00:00', `somPsID...

Hi,

If you wanted to deal with alot of String operation,
why not try to use fixed or allocated char array
to concatenate the string.

Hi,

Possible slowdown could be cause by the "String" operation,
s := s + FDataSet.FieldByName('ID').AsString;

How about the speed if you just assigning the Stirng,
s := FDataSet.FieldByName('ID').AsString;
I think this should give you more accurate speed test.

Hi,

It might due to the date format, like
yyyy/mm/dd or dd/mm/yyyy.

The main reason I suggest to use 2001/01/01, is to
find out the problem really due to date format or not.

Hi,

Why not try to use DateToStr( EncodeDate(2001, 01, 01) ) to
find out the format needed by firebird.