Sinkro.net » delphi

Delphi 2007 e Windows 7 64bit: Assertion failure in thread32.cpp line 412

Massimiliano — Mon, 26 Apr 2010 15:20:58 +0000

Su windows 7 64 bit sia delphi 2007 che delphi 2009 presentano un problema durante il debug di un'applicazione.

Quando si termina l'applicazione oggetto di debug, delphi presenta il seguente dialog:

Assertion failure: "(!"SetThreadContext failed")"
in ..\win32src\thread32.cpp at line 412
Continue execution?

Rispondendo NO delphi si chiuderà allegramente.

Olaf Monien sul suo blog presenta la soluzione nell'articolo Delphi 2009 / Windows 7 / 64 bit Debugger Crash Workaround e LordByte ha approntato una patch, Delphi_2007_2009_WOW64_Debugger_Fix.zip, disponibile anche qui.

Altri articoli di interesse:

Delphi 2007 per Win32 e Delphi 2007 for PHP I rumors sulle nuove versioni di Delphi sono diventati ufficiali....
Delphi per Vista e Delphi per PHP. Rumors. Dal blog di Marco CantÃ¹ apprendo che si sono avute...
Inviare fax tramite Microsoft FaxServer con delphi uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var mFax,mFaxDoc: Variant; begin...

Delphi 2007 per Win32 e Delphi 2007 for PHP

Massimiliano — Thu, 22 Feb 2007 14:20:21 +0000

I rumors sulle nuove versioni di Delphi sono diventati ufficiali.

Da Codegear l'annuncio ufficiale di Delphi 2007 per Win32 e Delphi per PHP.

Una paio di screenshot di Delphi per PHP:

Altri articoli di interesse:

Delphi per Vista e Delphi per PHP. Rumors. Dal blog di Marco CantÃ¹ apprendo che si sono avute...
Delphi 2007 e Windows 7 64bit: Assertion failure in thread32.cpp line 412 Su windows 7 64 bit sia delphi 2007 che delphi...
Rilasciato PostgreSQL 8.1 PostgreSQL 8.1 contiene piu' di 120 tra nuove caratteristiche e...

Delphi per Vista e Delphi per PHP. Rumors.

Massimiliano — Wed, 14 Feb 2007 16:08:50 +0000

Dal blog di Marco CantÃ¹ apprendo che si sono avute notizie di nuove versioni di Delphi.

Delphi Spacely, a Win32 Development for Windows Vista and AJAX
Delphi Astro, a Delphi for PHP

Un prodotto tutto nuovo per php! Wow!!! Questa si che Ã¨ una novitÃ !

Delphi e la VCL rimarranno comunque al centro dei prodotti RAD di CodeGear con rinnovata attenzione verso lo sviluppo Win32 e, udite udite, verso Kylix.

I rumors sembrano essere parecchi, maggior informazioni possono essere trovato sul blog di Marco, in particolare qui.

Vedremo quanti e quali di questi rumors diventeranno realtÃƒ , nel frattempo perÃƒÂ², per Delphi Spacely abbiamo un paio di conferme , sono stati scovati addirittura 2 screenshot.

Ce li mostrano Marco CantÃ¹ e Dr. Bob rispettivamente qui e qui in versione thumbnail qui sotto.

Altri articoli di interesse:

Delphi 2007 per Win32 e Delphi 2007 for PHP I rumors sulle nuove versioni di Delphi sono diventati ufficiali....
Delphi 2007 e Windows 7 64bit: Assertion failure in thread32.cpp line 412 Su windows 7 64 bit sia delphi 2007 che delphi...
Come utilizzare google da delphi Come primo passo Ã¨ necessario ottenere una google api key...

Borland rilancia il classico Turboâ„¢

Massimiliano — Sat, 12 Aug 2006 09:59:46 +0000

Borland rilancia il classico Turboâ„¢.

PiÃ¹ di qualcuno ricorderÃ il mitico TurboPascal. Ora Borland rilancia con una linea di prodotti Turboâ„¢ a basso costo per sviluppare in Win32 e .NET.

La linea di prodotti Turboâ„¢ include:

Turbo Delphi for Win32
Turbo Delphi for .NET
Turbo C++
Turbo C#

Ogni versione sarÃ disponibile in due edizioni:
Turbo Explorer, edizione free per imparare a programmare.
Turbo Professional, edizione a meno di $500.

Turbo Delphi, Turbo Delphi for .NET, Turbo C++ and Turbo C# saranno disponibile all'inizio di settembre 2006.

Sembra che gli IDE di entrambe le edizioni si avvalgono delle caratteristiche di BDS2006

Refactorings
Live Templates
Code Completion
Code Insight
Block Completion

Maggiori informazioni sono disponibili sul sito www.turboexplorer.com.

Interessante news, sia per il ritorno di un compilatore free, che per una alternativa economica al Borland Developer Studio.

Altri articoli di interesse:

Delphi per Vista e Delphi per PHP. Rumors. Dal blog di Marco CantÃ¹ apprendo che si sono avute...
Delphi 2007 per Win32 e Delphi 2007 for PHP I rumors sulle nuove versioni di Delphi sono diventati ufficiali....
Inviare fax tramite Microsoft FaxServer con delphi uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var mFax,mFaxDoc: Variant; begin...

Come utilizzare google da delphi

Massimiliano — Sun, 23 Jul 2006 14:02:58 +0000

Come primo passo Ã¨ necessario ottenere una google api key per poter utilizzare il WebService che Google ci mette a disposizione.
La si puÃ² ottenere qui http://google.com/apis/.

Una volta registrati si otterra' la key via email.

In delphi 7 e successivi c'e' un utile strumento, wsdl importer che importa i wsdl e ci crea un file di interfaccia verso gli oggetti messi a disposizione dal webservice.

Usarlo Ã¨ piuttosto semplice:
Entriamo in delphi e dal menu
file->new->other
scegliamo
webservices->wsdl importer

Impostiamo l'url del wsdl in http://api.google.com/GoogleSearch.wsdl

Clicchiamo Next e poi Finish.

Nell'editor si aprira' automaticamente il file GoogleSearch.pas.

In questo file troveremo, tra le altre cose, la definizione della classe GoogleSearchPort

La definizione:

GoogleSearchPort = interface(IInvokable)
['{0B396A82-A4DD-69A7-A771-6D80F8831A71}']
function doGetCachedPage(const key: WideString; const url: WideString): TByteDynArray; stdcall;
function doSpellingSuggestion(const key: WideString; const phrase: WideString): WideString; stdcall;
function doGoogleSearch(const key: WideString; const q: WideString; const start: Integer; const maxResults: Integer; const filter: Boolean; const restrict: WideString; const safeSearch: Boolean; const lr: WideString; const ie: WideString; const oe: WideString
): GoogleSearchResult; stdcall;
end;

Notare i tre metodi che Google ci mette a disposizione:

doGetCachedPage
doSpellingSuggestion
doGoogleSearch

Per testarli ho creato una form con un TEdit, un TMemo ed un TButton.
APIKEY rappresenta la key che ci ha fornito Google per poter utilizzare il WebService.

Proviamo i metodi uno ad uno.

doGetCachedPage

doGetCachedPage restituisce un TByteDynArray che troviamo nella unit types.

Quindi:

uses
GoogleSearch
, Types;

CiÃ² che segue Ã¨ come potrebbe essere una semplice funzione che usa il metodo doGetCachedPage:

var
googleResult : TByteDynArray;
google : GoogleSearchPort;
mPage : string;
i : integer;
begin
google := GetGoogleSearchPort();
googleResult := google.doGetCachedPage(APIKEY, edit1.Text);

mPage := '';
for i := 0 to length(googleResult) - 1 do
begin
mPage := mPage + char(googleResult[i]);
end;
Memo1.Lines.Text := mPage;
end;

doSpellingSuggestion

doSpellingSuggestion Ã¨ il metodo piÃ¹ semplice dato che restituisce una semplice widestring.

var
google : GoogleSearchPort;
mWord : string;
begin
google := GetGoogleSearchPort();
mWord := google.doSpellingSuggestion(APIKEY, edit1.Text);

Memo1.Clear;
memo1.Lines.Add(mWord);
end;

doGoogleSearch

doGoogleSearch Ã¨ il metodo che ci permette di effettuare ricerche.

Richiede questi parametri:

key Google Api key
q Il testo che stiamo cercando
start Da quale risultato partiamo
maxResults Quanti risultati volgiamo
filter Filtrare i risultati simili
restrict Restrizione di nazione o argomento
safeSearch filtro pornografia
lr restrizione di lingua
ie input encoding
oe output encoding

nessuno dei quali e' opzionale.

doGoogleSearch restituisce un oggetto di tipo GoogleSearchResult anch'esso definito nel wsdl e di conseguenza nel nostro GoogleSearch.pas generato automaticamente da wsdl importer.

Questa la dichiarazione:

GoogleSearchResult = class(TRemotable)
...
published
property documentFiltering: Boolean;
property searchComments: WideString;
property estimatedTotalResultsCount: Integer;
property estimateIsExact: Boolean;
property resultElements: ResultElementArray;
property searchQuery: WideString;
property startIndex: Integer;
property endIndex: Integer;
property searchTips: WideString;
property directoryCategories: DirectoryCategoryArray;
property searchTime: Double;
end;

Un altro oggetto importante Ã¨ ResultElement, ovvero ogni singolo risultato della ricerca. La dichiarazione:

ResultElement = class(TRemotable)
...
published
property summary: WideString;
property URL: WideString;
property snippet: WideString;
property title: WideString;
property cachedSize: WideString;
property relatedInformationPresent: Boolean;
property hostName: WideString;
property directoryCategory: DirectoryCategory;
property directoryTitle: WideString;
end;

Vediamo un po' come possiamo implementare una semplice ricerca:

var
googleResult : GoogleSearchResult;
google : GoogleSearchPort;
i : integer;
begin
google := GetGoogleSearchPort();
googleResult := google.doGoogleSearch(
APIKEY, Edit1.Text, 0, 10, False, '', False, '', '', '');

Memo1.Clear;

Memo1.Lines.Add('Trovati ' + IntToStr(googleResult.estimatedTotalResultsCount) + ' risultati:';
Memo1.Lines.Add('');
for i := Low(googleResult.resultElements) to High(googleResult.resultElements) do
begin
Memo1.Lines.Add(IntToStr(i + 1));
Memo1.Lines.Add(googleResult.resultElements[i].title);
Memo1.Lines.Add(googleResult.resultElements[i].URL);
Memo1.Lines.Add('');
end;
end;

Allego un progettino di esempio dove ho cercato di utilizzare tutte le proprietÃ disponibili di GoogleSearchResult e di ResultElement:
TestGoogleSearch

Altri articoli di interesse:

Come aggiungere google maps in una pagina web Questa cosa e' facile facile e di sicuro effetto. La...
Inviare fax tramite Microsoft FaxServer con delphi uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var mFax,mFaxDoc: Variant; begin...
Attenti a Google map Credo conosciate già la vista stradale delle maps di google....