Search options (Page 1 of 2)

Hi,
I use this on Windows 10 on a lot of computers (and I nether got this issue !?).
The floating point error involve the calculus. Try to replace

Picture.LoadFromFile(GetBackgroundImage());

by

Picture.LoadFromFile('filepath to a test picture');

. Check the values : Picture.Width and Picture.Height.

The error may be linked to :
- a registry access deny
- a forbiden filepath to the picture
- an unsupported picture file (by LoadFromFile)
- a corrupted picture file (with wrong size values)
- an unsupported screen resolution

Let me know if this helps you.

Regards,
jihem

Thanks for the answer (to hide unused part).

Is there a way to crop a part from the image ?

Thanks a lot !!!
Best wishes :-)

Hi,
There is a sample of encrypted sqlite database on the forum ('Full DB Encryption'). I don't remember where but you can search. To use it, you have to replace the sqlite3.dll with the one provided. There are specific commands to set a password and to connect. The topic has a MVD sample with code (very easy to set up). You only have to add this in your script :

begin
    // SQLExecute('PRAGMA rekey=''password';');
    SQLExecute('PRAGMA key = ''password';');
end.

Regards,
jihem

Hi,
I use this before using a string in an SQL statement :

function SQLStr(sStr:string):string;
begin
  Result:=Trim(ReplaceStr(sStr,'''',''''''));
end;

Regards,
jihem

Hi,

Bjarke Viksoe wrote an OLE DB Provider allowing you to query XML documents with SQL : https://www.viksoe.dk/code/xmloledb.htm.
I ended with something like the code below...
I thank you folks for your remarks.
Regards,
jihem

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
  adoConn,
  adoRS:Variant;
  i:integer;
begin
  adoConn:=CreateOleObject('ADODB.Connection');
  adoConn.Open('Provider=XmlOleDb.XML;Location='+ExtractFilePath(Application.ExeName)+'\catalog.xml');
  adoConn.CursorLocation:= 3; //adUseClient;
  adoRS:=adoConn.Execute('SELECT * FROM book,info');
  while (not adoRS.EOF) do
  begin
    for i:=0 to adoRS.Fields.Count-1 do
    begin
      log('adoRS.Fields('+IntToStr(i)+')='+adoRS.Fields(i).Name+' = '+adoRS.Fields(i).Value);
    end;
    adoRS.MoveNext();
  end;
  adoRS.Close();
  adoConn.Close();
end;

Hi,
It wasn't the answer I was waiting for... I expected an update which solves this.
Thanks for your help. I will do things twice.
Regards,
jihem

Hi,

Toolbox.pas contains some things I have done to manage :
- INI (store window position...),
- SQL (escape quote...),
- Strings (additional functions to extract text within html/xml node, ...),
...
and which are very usefull. I include it (or part of it) in all my projects (with another one called drivesoft.pas which contains usefull things found on the forum).

The wbGetFile.exe download a file : wbGetFile <url of the document to download> <filename>

The full projet is a rss stream downloader http://codyssea.com/index.php/2017/08/20/podcastor.
I have made wbGetFile to download the files in the background (without blocking the app) because the content of rss stream can be really big...

I use a timer to manage the process with some steps : to check if there is something to download, to launch wdGetFile (with OpenFile), to wait from the completion,... and to loop.

In fact, I use MVD to build the UI of my applications and process the data in background with some exe (made with MVD or other languages because MVD isn't multithread and I/O are blocking). The first version of wdGetFile was made with .Net (but I made another with purebasic to have less dependencies).

And finaly I use InstallCreator to build the install.

Regards,
jihem

http://codyssea.com/downloads/LoadFromFileUTF8.zip

Your sample works well with unicode but not for UTF8 files.

I think you should add 2 native convert functions: EncodeUTF8 and DecodeUTF8 (like the DecodeUTF8 provided in the podcastor projects) to convert to UTF8 (back and forth). It's not a bug. It's a lack of conversion functions. The Web usualy use UTF8 file format (specially ajax calls).

I found this page for Delphi : http://docwiki.embarcadero.com/RADStudi … sion_UTF-8
Adding DetectUTF8Encoding could be a good idea too.

I don't want to be rude. And I am sorry to insist. I got this issue with several languages and it was always solved by using or including these functions (like I did in the previous sample projects). The only problem is that native functions are much faster than the one I wrote in MVD. So please, would you like to include them?

Be sure, I'm very grateful for your help.
Regards,
jihem