mvanrijnen

post deleted?

just drag and drop in the projects list of the group?

also check: GitHub - andrea-magni/MARS: MARS-Curiosity Delphi REST Library

19 hours ago, Lars Fosdal said:

Charles Proxy is also good for sniffing out http/https issues.

haha, you have stocks in that ? 😉 

(i still have to compare it to mitm)

if they are o365 accounts, you could take a look at the Microsoft Graph API instead. 

maybe worth instead of doing it the "old way".

1 hour ago, Kas Ob. said:

It is from the above that this is one time leak, which is caused by not freeing the stringlist

class operator TTaskDialogParams.Finalize(var Dest: TTaskDialogParams);
begin
//  Dest.CustomButtons.Free;
end;

So where is the problem ? 

What happen if you did uncomment that line ?

then he get's an AV, cause he's freeing the CustomButtons in his Clear method.

8 hours ago, Remy Lebeau said:

I would do something like this:

[mru]
count=N
path1=...
path2=...
...
pathN=...

Keep adding new paths to the front of the list until the desired count is reached, then remove the oldest path from the end of the list each time a new path is added.

i have a ini helpers for this ....

3 minutes ago, Uwe Raabe said:

Because a CE license is valid for one year only. After that you have to request a new CE license which will only work with the current CE version.

But WHY 🙂 

The whole purpose of the CE licenses is to attract developers, not scare them away ?

49 minutes ago, pmcgee said:

Well. I learnt about something today. Recursive regexes.

double trouble 🙂

17 minutes ago, Marsil said:

As you changed your question I changed my answer above, I Hope it's what you are looking for.

BTW,  Your question has nothing to do with VCL, You should have posted it in General Help forum.

and now try this ) with this ( text as it )() fill fail (sometimes) 😉

Use this: System.SysUtils.TStringHelper.IndexOf - RAD Studio API Documentation (embarcadero.com)

How to use the above to solve your problem is your job as a developer 😉

Hi folks,

We have a new developer at out team, he got C# & Python at his study, and has to learn Delphi now to be productive in our team 🙂

What sites you recommend to start out with Delphi, we have him now looking to Learn Delphi, and the links mentioned there.

8 hours ago, Kurt G said:

My Delphi 10.4 Sydney Community Edition has expired and I would like a new license.
When I tried to install 11.2 I got 12.0
Finally, I manually deleted everything in the dir where RAD was installed.
Now when I want to install Delphi Community Edition 11.2, it says that there is already a version on the PC that it wants to remove.
But instead it comes back to the same place and I can't uninstall.
What can I do?

How do you get the CE version of 12 ?

Delphi IDE for Native Apps: Community Edition - Embarcadero

States its still 11.x ?

45 minutes ago, dummzeuch said:

"23.216.147.64 - It belongs to Akamai, which is a company Microsoft uses to manage traffic to their servers. In the Sysinternals report, something crashed ("WER"="Windows Error Reporting") and the report just catches Windows preparing a report to Microsoft."

 

That's from Reddit, but there are multiple other sources.

Ah see, little bit strange that a site as virustotal does not take this to consideration or report it with the found ip's.

You can check this also with procmon: Process Monitor - Sysinternals | Microsoft Learn

as said, i'm gonna check this now 🙂  (private laptop i have CE installed, will do the same tomorrow with the Enterprise edition).

procmon does not detect any network connectivity

simple console app:

(and just for fun i attached the ip trace from procmon, running bds-> start project1 -> close bds)

Virustotal result:  

Link: VirusTotal - File - 956317d6f12af53a4c97db41807e9dd51fd37c30057607cecb969fc9214ccb99

Scanning:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

begin
  try
    try
      Writeln;
      Writeln('This is just a test');
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Writeln;
    Write('press enter...');
    Readln;
  end;
end.

bds ip trace.txt

On 11/13/2023 at 2:28 PM, Officeapi said:

I created TRESTClient/Request in the code, and used seperate Clients. Still got JSONValue null. Is it possible that TRESTClient doesn't work in some situation?

i'm out of idea, very strange that you get a statuscode 200, visible content in the proxy but not content in the delphi object. 

litlle bit offtopic, just curious, 
but what would be the (big) advantage of using Spring4D for collections instead of the "Built In" generics/collections from Delphi?,.

but there is clearly JSON data in the response, i really would not know where your response content is empty

20 minutes ago, Officeapi said:

I don't have setting 'Accept'.

After I added req.AddParameter('Accept', ctAPPLICATION_JSON, pkHTTPHEADER, [TRESTRequestParameterOption.poDoNotEncode]);

the JSONValue is still null.

 

Just check the component, there is setting for Accept: 'application/json, text/plain; q=0.9, text/html;q=0.8,'

very strange. and in the proxy you still  get json text in the response?
 

27 minutes ago, Officeapi said:

Here are the values I got during debug:

 

RESTProfileResponse.Content : ''
RESTProfileResponse.ContentLength : 348
RESTProfileResponse.ContentType : 'application/json;odata.metadata=minimal;odata.streaming=true;IEEE754Compatible=false'
RESTProfileResponse.ContentEncoding : ''
RESTProfileResponse.FullRequestURI : 'https://graph.microsoft.com/v1.0/me'
RESTProfileResponse.Headers : (nil, $5A528A0, #$D#$A, nil, 0, ',', '"', '=', [soWriteBOM,soTrailingLineBreak,soUseLocale])
RESTProfileResponse.JSONText : ''
RESTProfileResponse.JSONValue : nil
RESTProfileResponse.Observers : ($120E3090, TComponent.GetObservers$ActRec($120FFAB4) as TObservers.TCanObserveEvent, TComponent.GetObservers$ActRec($120FFAB0) as TObservers.TObserverAddedEvent)
RESTProfileResponse.RootElement : ''
RESTProfileResponse.StatusCode : 200

ah ok.

You can see that there is content (348 bytes)
 

but i think i know the problem, probably your accept header is not ok.

more will follow in a minute, i check something.....

you have this RESTProfileRequest.Params.AddItem('Accept', '*/*', TRESTRequestParameterKind.pkHTTPHEADER); somewhere? 

change the '*/* in 'application/json'

or better just use the constant: CONTENTTYPE_APPLICATION_JSON

(is declared in the Rest.Types unit)

i use:

req.AddParameter('Accept', ctAPPLICATION_JSON, pkHTTPHEADER, [TRESTRequestParameterOption.poDoNotEncode]);

6 minutes ago, gkobler said:

be carefull with the Auto Suffix, found a bug today in D11.3 but it could be also in D12.

https://quality.embarcadero.com/browse/RSP-43284

could be that we had the same problem, therefore we only use the pure/clear $(Auto)

3 minutes ago, Angus Robertson said:

Indeed, I thought I'd changed the package suffix to 29, but somehow the change got lost, and so D12 packages were built with suffix 28 which D11 then found due to so many different paths searched, and crashed the IDE on start-up.  

 

The risk of updating old components to use new compilers before the original developers have done so, if they are still around.

 

Parnassus is now installed in both D11 and D12, but calls itself Yukon instead of Athens, one reason I've stopped using these names for ICS, gets very confusing.

 

Angus

 

 

 

Just set it to auto in de Project options for the package:

Lib suffix: $(Auto)

2 minutes ago, Anders Melander said:

No, but making a Delphi 12 preview available most likely would have solved it.

These closed betas are a ridiculously out-of-date way of doing things.

Yes, they should turn it around, first release the CE as a preview,,  get the community to work for you, they will if you provide them a free IDE.

Go more to a system as MS does, you need to have a payed license if you have $xxx  in annual revenue.......

8 minutes ago, Uwe Raabe said:

What makes you think so? At least in my standard installation these folders are located under c:\Users\Public\Documents\Embarcadero\Studio\xx.x and c:\Users\<user>\Documents\Embarcadero\Studio\xx.x

hmz, have to take a look at that if we upgrade to D12 

7 minutes ago, gioma said:

yes but it shouldn't be up to us to solve it..

 

perhaps it is precisely this approach that is wrong... I read that people are not surprised by this behavior, which means that over time these mistakes have been repeated over and over again!
As I wrote in the post "Delphi 11.3 Forsaken", I don't like this policy of not releasing fixes for months and then coming out with a new version of Delphi that still carries the bugs of the previous one with new features that add new bugs..
they should concentrate their efforts on solving macroscopic bugs and then think about making a new version of Delphi, otherwise it's just a joke..

I find all this unprofessional... the world moves on, Delphi just pretends to, but still remains anchored to a way of doing things that should be extinct because it is not very functional!

 

I think they should also change the 

BDSCatalogRepository

BDSCatalogRepositoryAllUsers

paths, by default they do not have a version in it (at least untill 11.3), i always change these to something like "D:\Data\Delphi\Catalog\22"

(and then the same value for BDSCatalogRepository as for BDSCatalogRepositoryAllUsers)