Re: PICTs

2019-08-27 Thread Chip Scheide via 4D_Tech 
That is great!

Thanks!

Chip
On Tue, 27 Aug 2019 01:31:33 -0700 (MST), ADeeg via 4D_Tech wrote:
> 4D Tech mailing list wrote
>> In v13, or v15 is there a way to tell is a picture in the library is in 
>> PICT, or other format?
>> 
>> Thanks
>> Chip
> 
> Chip,
> 
> this is an easy method to get the picture types without plugin calls:
> It checks for PICT, but the code is easy to modify to get the other pictre
> formats too.
> 
> C_LONGINT($i_lib;$i_byt)
> C_PICTURE($pict)
> C_TEXT($s)
> ARRAY LONGINT($aL_id;0)
> ARRAY TEXT($aT_nam;0)
> PICTURE LIBRARY LIST($aL_id;$aT_nam)
> For ($i_lib;1;Size of array($aL_id))
>   GET PICTURE FROM LIBRARY($aL_id{$i_lib};$pict)
>   SET BLOB SIZE($blob;0)
>   VARIABLE TO BLOB($pict;$blob)
>   If (BLOB size($blob)>256)
>   $s:=""
>   
>   For ($i_byt;0;256)
>   If (($blob{$i_byt}>31) & ($blob{$i_byt}<127))
>   $s:=$s+Char($blob{$i_byt})
>   Else 
>   $s:=$s+"?"
>   End if 
>   End for 
>   
>   If (Position(".?p?i?c?t?";$s)>1) //If 
> (Position(".?p?n?g?";$s)>1) //If
> (Position(".?s?v?g?";$s)>1)
>   GET PICTURE FROM LIBRARY($aL_id{$i_lib};$pict)
>   CONVERT PICTURE($pict;".png")
>   SET PICTURE TO 
> LIBRARY($pict;$aL_id{$i_lib};$aT_nam{$i_lib})
>   End if 
>   End if 
> End for 
> 
> 
> Regards Armin
> 
> 
> 
> --
> Sent from: http://4d.1045681.n5.nabble.com/4D-Tech-f1376241.html
> **
> 4D Internet Users Group (4D iNUG)
> Archive:  http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
> **
---
Gas is for washing parts
Alcohol is for drinkin'
Nitromethane is for racing 
**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

Re: PICTs

2019-08-27 Thread ADeeg via 4D_Tech 
4D Tech mailing list wrote
> In v13, or v15 is there a way to tell is a picture in the library is in 
> PICT, or other format?
> 
> Thanks
> Chip

Chip,

this is an easy method to get the picture types without plugin calls:
It checks for PICT, but the code is easy to modify to get the other pictre
formats too.

C_LONGINT($i_lib;$i_byt)
C_PICTURE($pict)
C_TEXT($s)
ARRAY LONGINT($aL_id;0)
ARRAY TEXT($aT_nam;0)
PICTURE LIBRARY LIST($aL_id;$aT_nam)
For ($i_lib;1;Size of array($aL_id))
GET PICTURE FROM LIBRARY($aL_id{$i_lib};$pict)
SET BLOB SIZE($blob;0)
VARIABLE TO BLOB($pict;$blob)
If (BLOB size($blob)>256)
$s:=""

For ($i_byt;0;256)
If (($blob{$i_byt}>31) & ($blob{$i_byt}<127))
$s:=$s+Char($blob{$i_byt})
Else 
$s:=$s+"?"
End if 
End for 

If (Position(".?p?i?c?t?";$s)>1) //If 
(Position(".?p?n?g?";$s)>1) //If
(Position(".?s?v?g?";$s)>1)
GET PICTURE FROM LIBRARY($aL_id{$i_lib};$pict)
CONVERT PICTURE($pict;".png")
SET PICTURE TO 
LIBRARY($pict;$aL_id{$i_lib};$aT_nam{$i_lib})
End if 
End if 
End for 


Regards Armin



--
Sent from: http://4d.1045681.n5.nabble.com/4D-Tech-f1376241.html
**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

Re: PICTs

2019-08-20 Thread Chuck Miller via 4D_Tech 
JPR has given me permission to send out his component that will help you in 
fixing this problem. If you want it please advise

Regards



Chuck

 Chuck Miller Voice: (617) 739-0306
 Informed Solutions, Inc. Fax: (617) 232-1064   
 mailto:cjmillerinformed-solutions.com 
 Brookline, MA 02446 USA Registered 4D Developer
   Providers of 4D and Sybase connectivity
  http://www.informed-solutions.com  

This message and any attached documents contain information which may be 
confidential, subject to privilege or exempt from disclosure under applicable 
law.  These materials are intended only for the use of the intended recipient. 
If you are not the intended recipient of this transmission, you are hereby 
notified that any distribution, disclosure, printing, copying, storage, 
modification or the taking of any action in reliance upon this transmission is 
strictly prohibited.  Delivery of this message to any person other than the 
intended recipient shall not compromise or waive such confidentiality, 
privilege or exemption from disclosure as to this communication. 

> On Aug 19, 2019, at 9:40 PM, Chip Scheide via 4D_Tech <4d_tech@lists.4d.com> 
> wrote:
> 
> one more question...
> how do I find the 'static PICTs' referenced in the 64 bit report?
> I have looked at, and know what is on all of my forms - I do not have any 
> static PICTS that I can see/find.
> 

**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

Re: PICTs

2019-08-19 Thread JOHN BAUGHMAN via 4D_Tech 
Easiest way is to open the structure or a copy of the structure with v16 and 
run a verify in the MSC on the structure. All the images in the library as well 
as static images on forms will be listed as warnings if they are in PIC format.

John


John Baughman
Kailua, Hawaii 
(808) 262-0328
john...@hawaii.rr.com

> On Aug 19, 2019, at 11:33 AM, Chip Scheide via 4D_Tech <4d_tech@lists.4d.com> 
> wrote:
> 
> In v13, or v15 is there a way to tell is a picture in the library is in 
> PICT, or other format?
> 
> Thanks
> Chip
> ---
> Gas is for washing parts
> Alcohol is for drinkin'
> Nitromethane is for racing 
> **
> 4D Internet Users Group (4D iNUG)
> Archive:  http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
> **

**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

RE: PICTs

2019-08-19 Thread Chip Scheide via 4D_Tech 


Thanks!

one more question...
how do I find the 'static PICTs' referenced in the 64 bit report?
I have looked at, and know what is on all of my forms - I do not have any 
static PICTS that I can see/find.

Thanks
again
Chip

>> In v13, or v15 is there a way to tell is a picture in the library is 
>> in PICT, or other format?
> 
> The 4D Pack plugin command 'AP Is Picture Deprecated' returns 1 if 
> the picture is in PICT format.
> 
> See this tech tip written for v13: https://kb.4d.com/assetid=76775
> 
> -Tim
> 
> 
> 
> Timothy Penner
> Senior Technical Services Engineer
> 
> 4D Inc
> 95 S. Market Street, Suite #240
> San Jose,CA 95113
> United States
> 
> Telephone: +1-408-557-4600
> Fax:   +1-408-271-5080
> Email: tpen...@4d.com
> Web:   www.4d.com
> 

Hell is other people 
 Jean-Paul Sartre
**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

Re: PICTs

2019-08-19 Thread Chuck Miller via 4D_Tech 
Yes you can usehm free from  https://www.hmplugins.com/ 


Regards


Chuck

 Chuck Miller Voice: (617) 739-0306
 Informed Solutions, Inc. Fax: (617) 232-1064   
 mailto:cjmillerinformed-solutions.com 
 Brookline, MA 02446 USA Registered 4D Developer
   Providers of 4D and Sybase connectivity
  http://www.informed-solutions.com  

This message and any attached documents contain information which may be 
confidential, subject to privilege or exempt from disclosure under applicable 
law.  These materials are intended only for the use of the intended recipient. 
If you are not the intended recipient of this transmission, you are hereby 
notified that any distribution, disclosure, printing, copying, storage, 
modification or the taking of any action in reliance upon this transmission is 
strictly prohibited.  Delivery of this message to any person other than the 
intended recipient shall not compromise or waive such confidentiality, 
privilege or exemption from disclosure as to this communication. 

> On Aug 19, 2019, at 5:33 PM, Chip Scheide via 4D_Tech <4d_tech@lists.4d.com> 
> wrote:
> 
> In v13, or v15 is there a way to tell is a picture in the library is in 
> PICT, or other format?
> 
> Thanks
> Chip
> ---
> Gas is for washing parts
> Alcohol is for drinkin'
> Nitromethane is for racing 
> **
> 4D Internet Users Group (4D iNUG)
> Archive:  http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
> **

**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

RE: PICTs

2019-08-19 Thread Timothy Penner via 4D_Tech 
> In v13, or v15 is there a way to tell is a picture in the library is in PICT, 
> or other format?

The 4D Pack plugin command 'AP Is Picture Deprecated' returns 1 if the picture 
is in PICT format.

See this tech tip written for v13: https://kb.4d.com/assetid=76775

-Tim



**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**

Re: PICTs

2019-08-19 Thread Narinder Chandi via 4D_Tech 
Not that I know of however since v16 there has been the GET PICTURE FORMATS 
command:
https://doc.4d.com/4Dv17/4D/17.2/GET-PICTURE-FORMATS.301-4387029.en.html
but that doesn't directly help you for v13 or v15.

So, I thought about it some more and _maybe_ could use PICTURE CODEC LIST and 
CONVERT PICTURE:
https://doc.4d.com/4Dv17/4D/17.2/PICTURE-CODEC-LIST.301-4387018.en.html
https://doc.4d.com/4Dv17/4D/17.2/CONVERT-PICTURE.301-4387025.en.html

So my thinking is...
Take an example picture and apply each codec returned by PICTURE CODEC LIST to 
it in turn. For each converted picture compare it with the original - if it's 
the same then you have identified its codec.

This is only theoretical as the act of converting the picture when the original 
and new codecs are identical may actually change the underlying picture in some 
way anyway thus rendering this idea useless. Maybe worth a try though?

Regards,
 
Narinder Chandi,
ToolBox Systems Ltd.
-- 

-Original Message-
From: 4D_Tech <4d_tech-boun...@lists.4d.com> on behalf of 4D Tech Mailing List 
<4d_tech@lists.4d.com>
Reply-To: 4D Tech Mailing List <4d_tech@lists.4d.com>
Date: Monday, 19 August 2019 at 22:33
To: 4D Tech Mailing List <4d_tech@lists.4d.com>
Cc: Chip Scheide <4d_o...@pghrepository.org>
Subject: PICTs

In v13, or v15 is there a way to tell is a picture in the library is in 
PICT, or other format?

Thanks
Chip
---
Gas is for washing parts
Alcohol is for drinkin'
Nitromethane is for racing 
**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**


**
4D Internet Users Group (4D iNUG)
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:4d_tech-unsubscr...@lists.4d.com
**