Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
procedure TForm1.Button1Click(Sender: TObject); var ByteCount: integer; EncodedStr: WideString; MemStream: TMemoryStream; //// DecodeStream: TBase64DecodingStream; //Signal: array of byte; begin q.sql.Clear; q.SQL.Add('select by from aaa'); q.Open; q.last; EncodedStr := q.FieldByName('by').asstring; MemStream := TMemoryStream.Create; ByteCount := length(q.FieldByName('by').AsString); showmessage(inttostr(ByteCount)); // returns 255 only, why??? MemStream.Write((EncodedStr), ByteCount); MemStream.Seek(0, soFromBeginning); MemStream.SaveToFile('01.jpg'); end;
Join the community of 500,000 technology professionals and ask your questions.