boris.nihil

hi, does anybody uses securebridge from DEVART to sign a pdf, i dont know is it good code: var signed, bajtovi: TBytes; fajl:tfile; ScMemoryStorage1.ImportFromPKCS12('c:\_Projekti\028.pfx', 'Pero412'); bajtovi := fajl.readallbytes('c:\_Projekti\Svjedodzba.PDF'); signed:= ScMemoryStorage1.Certificates.Certificates[0].Sign(bajtovi,haSHA1,pmPKCS1); SaveBytesToFile(bajtovi,'c:\_Projekti\Svjedodzba_signed.PDF');

i think this will not work... But why application cant free dll previously loaded with Handle := LoadLibrary(pchar(ExtractFilePath(Application.ExeName)+ 'ssl_old\DLL-2005\libeay32.dll')); with freelybrary FreeLibrary(Handle); Handle := 0;

hello is it possible to have 2 or more version of the same dll in application? (ssleay32.dll and libeay32.dll) i have some old unit whitch uses openssl dlls from 2005 and i am sending emails with Indy which required openssl dlls from 2019... i have set a path for Indy dlls at the program start, initialisation, sslpath... when i use loadlibrary('') for this 2005. year dll, i cannot send emails enymore with indy, it say "the ordinal 3844 could not be located in the dynamic link library"

where can i find needed delphi units for this new openssl ? (libeay32.pas,libexslt.pas,libxml2.pas,libxmlsec.pas...)

hello,i am not familiar with ssl much.. I have some old delphi code for sending soap messages ,it uses oopenssl: "Delphi import unit for OpenSSL libeay, version 0.7m, 2010-11-05" it works only with dlls from 2005 year (ssleay32.dll and libeay32.dll) why this EXE dont work with some newer dlls, from 2019 for example...

thanks a lot for you answers

compiler says error,no such function this code works... ------------------- bajt := data1.IdTCPClient1.IOHandler.ReadByte; bajt1 := data1.IdTCPClient1.IOHandler.ReadByte; bajt2 := bajt * $10 + bajt1; data1.IdTCPClient1.IOHandler.ReadBytes(Buffer,bajt2,false); s := ''; for i := 0 to bajt2 - 1 do s := s + inttohex(buffer,2); ---------------------------- i need a hex, I explode it with 1C delimeter, its easy to handle.. What AApend parameter means, true or false, what to use in: data1.IdTCPClient1.IOHandler.ReadBytes(Buffer,bajt2,false); ?

thanks Datagram protocol Datagram protocol is used over stream-oriented protocols (TCP) to provide information to the receiver of the length of the data being sent. Datagram protocol forms a packet by adding a header to the payload. Datagram protocol header contains the length of the payload encoded in two bytes. Header Format Header consists of two bytes with the most significant byte first: Byte Value 1 Message length/256 2 Message lengt%256 --------------------------------------- Length of data Header Packet 7 0x00 0x07 0x00 0x07 B1 B2 B3 … B7 17 0x00 0x11 0x00 0x11 B1 B2 B3 … B17 135 0x00 0x87 0x00 0x87 B1 B2 B3 … B135 i need timer (put on 2000 ms), becouse i wait for customer to insert credit card on POS terminal, then POS will sent some message to me,starting with 10xxxxxxx first 2 bytes is size of packet,i think first one is always zero ? thanks,i will try it

Hello I have question about indy,sending and receiving messages from-to ECR-POS(Ingenico), am i doing it right ? ------send to POS request for Card paying IdTCPClient1.IOHandler.InputBuffer.Clear; IdTCPClient1.IOHandler.Write(buff); Timer4.Enabled := true; ---------on timer4 try if IdTCPClient1.IOHandler.InputBufferIsEmpty then begin if IdTCPClient1.IOHandler.CheckForDataOnSource(1000) then begin bajt := IdTCPClient1.IOHandler.ReadByte; bajt := IdTCPClient1.IOHandler.ReadByte; IdTCPClient1.IOHandler.ReadBytes(Buffer,bajt - 1,true); s := ''; for i := 0 to bajt - 1 do s := s + chr(buffer); Memo1.Lines.Add(s); Timer4.Enabled := false; end else IdTCPClient1.IOHandler.InputBuffer.Clear end else IdTCPClient1.IOHandler.InputBuffer.Clear; except end;

Thanks Brian, by putting Datamode to binary solved the problem

in instructions PDF, they say: Simbol UTF-8 Hex Č C4 8C č C4 8D Ć C4 86 ć C4 87 Đ C4 90 ------------------------- how to use it in delphi code ?

Does anybody have experience with 2d barcode, TurboPower SysTools, component StPDF417Barcode... I can't add StPDF417Barcode1.code = '...' witch contains some local letters (ŠĐČĆŽš), it says "Range check error"... virm_grad ,virm_adresa ,virm_naziv:string; virm_naziv := utf8encode('dsdddddd'); virm_adresa := utf8encode('ŠĐŠĐČĆĆČĆČ'); virm_grad := utf8encode('špšpUIZUZUZ'); StPDF417Barcode1.Code := 'HRVHUB30' + #13#10 + 'EUR' + #13#10 + virm_naziv + #10 + virm_adresa + #10 + virm_grad + #10;

all thanks goes to Remy

function GetValue(JsonObject: TJSONObject; const PairName: string): TJSONValue; var JsonPair: TJSONPair; begin JsonPair := JsonObject.Get(PairName); if JsonPair = nil then raise Exception.Create('Pair "' + PairName + '" not found'); Result := JsonPair.JsonValue; end; function GetObject(JsonObject: TJSONObject; const PairName: string): TJSONObject; begin Result := GetValue(JsonObject, PairName) as TJSONObject; end;

var JsonValueArr,JsonValue: TJSONValue; JsonObject: TJSONObject; jasonArr: TJSONArray; begin JsonValue := TJSONObject.ParseJSONValue(memoRequest.Lines.Text); if JsonValue = nil then begin ShowMessage('Error'); end else begin JsonObject := JsonValue as TJSONObject; JsonObject := GetObject(JsonObject, 'forretningsadresse'); jasonArr := GetValue(JsonObject, 'adresse') as TJSONArray; for JsonValueArr in jasonArr do begin showmessage(JsonValueArr.Value); end; end; end;