Delphi Pages Forums  

Go Back   Delphi Pages Forums > Search Forums

Lost Password?

Showing results 1 to 50 of 217
Search took 0.36 seconds.
Search: Posts Made By: Zaaka
Forum: General 09-13-2019, 02:15 AM
Replies: 0
Views: 455
Posted By Zaaka
Exclamation IsValidJPG no longer working

Hi all I have been using the following function to detect 'bad' jpg/jpeg images but it has suddenly stopped working, it is in a library that rarely gets altered. the error is the red line which...
Forum: General 03-18-2019, 10:49 AM
Replies: 1
Views: 8,807
Posted By Zaaka
Registry not working after windows update

I have the following (which has been working great) but has recently started showing 'path not found' does anyone have any idea why? the Key is directly from regedit and has been working.

tReg :=...
Forum: General 03-18-2019, 10:44 AM
Replies: 4
Views: 14,322
Posted By Zaaka
My appologies, but My first port-of-call for a...

My appologies, but My first port-of-call for a query/problem is google
Forum: General 12-21-2018, 01:26 AM
Replies: 4
Views: 14,322
Posted By Zaaka
Thnks to GeoWink for the NOT SO helpful answer,...

Thnks to GeoWink for the NOT SO helpful answer, checked google but nothing helpful, well not 32bit up upover, thats why I posted the initial question.
Forum: General 12-20-2018, 08:32 PM
Replies: 4
Views: 14,322
Posted By Zaaka
Creating ISO files

Is there a way to Natively create an ISO file from a specified Drive, or is there a free suite/component that would assist me in doing so?

Do not suggest GOOGLE, generally people check google...
Forum: General 11-10-2017, 06:42 PM
Replies: 1
Views: 2,824
Posted By Zaaka
Never Mind I have a working Function

I have a working function, not pretty but it works....
Forum: General 11-08-2017, 09:02 PM
Replies: 1
Views: 2,824
Posted By Zaaka
Thumbs up Whats the best way to duplicate part of a file path+tree

I need to duplicate a file path and tree, as below i need to duplicate from SubFolder1 (inclusive) and copy the folder structure to a different path (user specified), I can use getfiles to get the...
Forum: General 10-08-2017, 02:39 AM
Replies: 0
Views: 2,415
Posted By Zaaka
Is it possible to add 'Cast to Device' to my VCL Application

Is it possible to add 'Cast to Device' to my VCL Application, specifically casting selected files (TFileListBox) to user selected device?

If so how, does anybody have any source code for it?
...
Forum: General 03-14-2017, 10:09 PM
Replies: 4
Views: 4,007
Posted By Zaaka
Its OK now I have sorted it, for anybody who is...

Its OK now I have sorted it, for anybody who is curious heres the code

sResponse is the Response from the idHTTP Get which is my original JSON string in original question.


var
...
Forum: General 03-13-2017, 04:49 PM
Replies: 4
Views: 4,007
Posted By Zaaka
I have done it as you suggested, but just to get...

I have done it as you suggested, but just to get my head around the new JSON system, how would I do it with TJSon etc, by the way the token value is a unicode string as it can be larger that 255...
Forum: General 03-12-2017, 08:07 PM
Replies: 6
Views: 5,789
Posted By Zaaka
Here is a gnarly solution to your question, The...

Here is a gnarly solution to your question, The Capitalize function is not a stramline as it should be but gives you the just of what you need.

unit Unit2;

interface

uses
Winapi.Windows,...
Forum: General 03-12-2017, 07:42 PM
Replies: 4
Views: 4,007
Posted By Zaaka
How Do I parse a JSON string with just one value

I have the following JSON string and need to get the value of 'token' but all searched bright up JSON arrays etc which may be overkill for extracting one value, any help would be appreciated.


{...
Forum: General 12-25-2014, 12:00 AM
Replies: 2
Views: 4,973
Posted By Zaaka
The problem is that the sub directories are not...

The problem is that the sub directories are not getting deleted, the path that is passed to the function does not need to be deleted, just need to empty it of all empty folders.
Forum: General 12-23-2014, 10:38 PM
Replies: 2
Views: 4,973
Posted By Zaaka
Why does this not work anymore?

I used the following procedure since upgrading to XE6, now using XE7 this procedure no longer works :(, can anybody locate the problem?


procedure TForm1.actRemoveEmptyFoldersExecute(Sender:...
Forum: General 10-27-2014, 01:53 AM
Replies: 2
Views: 3,507
Posted By Zaaka
Disable Laptop Keyboard

Hi all, Is it possible to disable a laptops keyboard (progmatically), but leave a USB connected keyboard active? Mouse still needs to be active.

Any help/code will be greatly appreciated.
Forum: General 03-10-2014, 04:36 AM
Replies: 0
Views: 1,508
Posted By Zaaka
Extracting video information

Does anybody have any XE4 code to extract information from a video file (like windows properties). I need frame width, height, sound format etc. is it possible to use windows from Delphi to get...
Forum: General 08-10-2013, 06:28 PM
Replies: 1
Views: 3,247
Posted By Zaaka
TMemo to TWebBrowser

I have an html source generated in a TMemo, how can I transfer it to a TWebBrowser to view the result?
Forum: General 06-04-2013, 10:56 AM
Replies: 1
Views: 5,707
Posted By Zaaka
Can Anybody help with this????

Can Anybody help with this????
Forum: General 06-03-2013, 11:02 AM
Replies: 1
Views: 5,707
Posted By Zaaka
Access Remote PC's Processor details

I have used WMI to obtain a list of PC's on the network, however when I tre to access the Processor details of the PC I get an OLE error, could anyone help?

Here is my code.


unit Unit2;
...
Forum: General 03-24-2013, 04:30 PM
Replies: 0
Views: 3,401
Posted By Zaaka
TWebbrowser Save Picture As Dialog

Is there a way to set TWebbrowser's SavePictureAs dialog's initial Directory and filename?

I want to save the picture to a specific location and with a certain filename
Forum: General 03-21-2013, 09:42 AM
Replies: 3
Views: 4,642
Posted By Zaaka
Thanks Jasser I have tried the code but get the...

Thanks Jasser I have tried the code but get the following error:

'Data provider or other service returned an E_FAIL status'

Here is my Code

procedure TForm1.BitBtn3Click(Sender: TObject);...
Forum: General 03-20-2013, 10:55 AM
Replies: 3
Views: 4,642
Posted By Zaaka
TRichedit to MSAccess Database

Hi all,

I have a Access database which I have connected to via a TADOQuery, which is working fine, however I need to read and update a 'LongText' or BLOB with the contents of a TRichedit, can this...
Forum: General 03-08-2013, 08:42 AM
Replies: 2
Views: 3,178
Posted By Zaaka
Docking my application

Is it possible to dock my application to an external running application?

Also is it possible to read data from a TEdit control in the other application?
Forum: General 01-19-2013, 09:19 PM
Replies: 1
[SOLVED] EPUB file data
Views: 5,173
Posted By Zaaka
EPUB file data

Does anybody know how to extract epub file data, eg. title, author etc

Any XE2 source code will be very appreciated
Forum: General 11-18-2012, 06:21 PM
Replies: 7
Views: 5,123
Posted By Zaaka
Thanks Jasser, I have now got it working, thanks...

Thanks Jasser, I have now got it working, thanks for all your help
Forum: General 11-18-2012, 02:57 PM
Replies: 7
Views: 5,123
Posted By Zaaka
Here is my code: [code] var WordApp,...

Here is my code:
[code]
var
WordApp, WordRange, SearchString, ReplaceString:OLEVariant;
WordDoc:string;
t:integer;
oval:OLEVariant;

begin
WordDoc:=FileName;
Forum: General 11-17-2012, 03:53 PM
Replies: 7
Views: 5,123
Posted By Zaaka
Thanks Jasser, but i get the following error: ...

Thanks Jasser, but i get the following error:

Method 'Shapes' not supported by automation object.
Forum: General 11-16-2012, 09:27 PM
Replies: 7
Views: 5,123
Posted By Zaaka
Add shape to a word document

I currently have a word document loaded through OLE automation, however I need to add a shape to circle some text. I know in VB i can do the following:


Dim Oval =...
Forum: General 09-20-2012, 05:32 PM
Replies: 5
Views: 4,294
Posted By Zaaka
I am getting an Undefined Identifier

'FindComponent' is coming up as an Undefined identifier

TMemo(FindComponent('Notes'+inttostr(p))).Lines.Text
Forum: General 09-20-2012, 03:03 PM
Replies: 5
Views: 4,294
Posted By Zaaka
Question XE2 using FindComponent to get TMemo Text

I have the following code which creates a number of Tabsheets on a PageControl (pcWHHPPartners) and adds a memo to each sheet called Notes1,2,3,4..... 'i' is the loop variable.

...
Forum: General 09-12-2012, 02:05 PM
Replies: 1
Views: 3,038
Posted By Zaaka
Question Picture/Image problem

I have written a program that processes a very large number (135,184) of JPG and BMP image files, I have designed it to run overnight.

The problem is when there is a corrupt file (bad header etc)...
Forum: General 08-07-2012, 11:31 AM
Replies: 2
Views: 2,592
Posted By Zaaka
Does any one know of any good tutorials for using...

Does any one know of any good tutorials for using a listview.

I am using the Jedi Vcl library and have the mp3 tags in variables so just need to get my head around using the listview component.
Forum: General 08-05-2012, 03:06 PM
Replies: 2
Views: 2,592
Posted By Zaaka
Mp3 tag to Listview

Hi All,

I have a list of mp3's with tags and need to have them listed into a listview.
This is my first venture into useing a TListview, how do I add a list of my mp3's to the listview, adding...
Forum: General 07-24-2012, 01:50 PM
Replies: 1
Views: 3,426
Posted By Zaaka
Delphi PDF creation

Does any body know of a free component to generate PDF's from within a delphi app?

I am using Delphi XE2
Forum: General 07-10-2012, 09:53 PM
Replies: 1
Views: 3,217
Posted By Zaaka
Question Is this Possible?

I have a TWebBrowser in my application, but what I need to do is detect when the user selects text on the webpage, so that I can make a button active.

Is this possible, I have tried with...
Forum: General 03-29-2012, 08:08 AM
Replies: 2
Views: 2,209
Posted By Zaaka
Dates & Strings

I have a date in a string in the form 29-03-2012, what is the quickest and easiest way to add a year, and compare the current date to check if the current date is a week before or after the date...
Forum: General 03-17-2012, 12:19 AM
Replies: 4
Views: 3,008
Posted By Zaaka
Another way round it

Would it be easier to just remove and words longer that 1 character?

Could anyone point me to any script that may help?
Forum: General 03-16-2012, 01:58 PM
Replies: 4
Views: 3,008
Posted By Zaaka
What is the easiest way to split street numbers from a string

I have a list of addresses that I have in a Stringlist, which are in the format

40A Winterbourne Street

Is there an easy way to split the string so that '40A' would go into the street_number...
Forum: General 08-26-2011, 12:12 AM
Replies: 3
Views: 3,381
Posted By Zaaka
Getting a JSON result to a TMemo

Its OK i have managed it
Forum: General 08-24-2011, 02:17 AM
Replies: 3
Views: 3,381
Posted By Zaaka
Getting a JSON result to a TMemo

Hi All, I am making an API call via a TWebbrowser which returns a JSON string, how do i get it into a TMemo?:confused:
Forum: General 06-27-2011, 01:54 PM
Replies: 7
Views: 4,162
Posted By Zaaka
This is the whole code that I am trying as it was...

This is the whole code that I am trying as it was sent to me.



procedure TForm1.CheckJpegs1Click(Sender: TObject);
VAR
t:integer;
tjpg: Tjpegimage;
oname,nname:string;
begin
Forum: General 06-27-2011, 01:45 PM
Replies: 7
Views: 4,162
Posted By Zaaka
problem catching jpg errors

Hi Norrit, Thanks for looking,

The 't' is from a FOR loop which is looping through a TFileListBox which has about 1000 jpgs in it and what I am trying to do is display the jpg (not visually) and...
Forum: General 06-26-2011, 10:30 PM
Replies: 7
Views: 4,162
Posted By Zaaka
problem catching jpg errors

No, this is the only place i have used it :confused:
Forum: General 06-25-2011, 02:41 AM
Replies: 7
Views: 4,162
Posted By Zaaka
problem catching jpg errors

I am trying to catch any jpg errors when trying to load a jpg, but Ikeep getting the following error.

occurs just after the 'do' after Exception

here is my current code:


Picture :=...
Forum: General 06-12-2011, 03:54 PM
Replies: 4
Views: 12,672
Posted By Zaaka
You will need to change your code to var ...

You will need to change your code to

var
varray: Variant;
i,j : integer;
begin
arrData := VarArrayCreate([1, myRowCount, 1, myColCount], varVariant);
for i := 1 to myRowCount do
...
Forum: General 06-12-2011, 01:11 PM
Replies: 4
Views: 12,672
Posted By Zaaka
Format Excel Cells

You can select a range using
Sheet.Range['A1','EM1'].font.bold:=true;
this is the method I use and it is quite fast

Regards
Forum: General 05-05-2011, 02:38 AM
Replies: 4
Views: 2,824
Posted By Zaaka
OOps sorry its old code. I am away at the moment,...

OOps sorry its old code. I am away at the moment, will post as soon as i am back at my PC.

The code is good, just add

masterBMP.free;
thumbjpg.free;

before the very last END statement.
Forum: General 04-28-2011, 12:00 AM
Replies: 4
Views: 2,824
Posted By Zaaka
This is the function that I use

procedure thumbfilename(fj:string);
var
w,c:integer;
masterBMP :TBitmap;
filejpg,thumbjpg :TJpegImage;
x,y,h:integer;
BEGIN
filejpg:=TJpegImage.Create;
filejpg.LoadFromFile(fj);...
Forum: General 04-27-2011, 11:37 PM
Replies: 0
Views: 2,299
Posted By Zaaka
Help needed to intergtrate into explorer

I have a function / procedure that lists all file extentions within a folder, I require help on intergrating into explorers right click context menu.

I have not programmed with the context menu...
Forum: General 03-04-2011, 11:35 AM
Replies: 2
Views: 3,789
Posted By Zaaka
Thumbs up Thanks Norrit

Thanks for that Norrit, it now works a treat
Showing results 1 to 50 of 217

 
Forum Jump

All times are GMT. The time now is 12:06 PM.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2019, vBulletin Solutions, Inc.