Announcement

**Andreas Kosch** · 18.01.2005, 15:45

Hallo,

in der Tat muss zuerst der Zeiger ausgepackt werden. Das folgende Beispiel demonstriert das Prinzip:
<pre>
unit PSafeArrayTestFrm;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ActiveX;
 
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
procedure ShowArrayItems(pValues: PSafeArray);
procedure ShowVariantArrayItems(aValues : Variant);
public
{ Public-Deklarationen }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
aArray : Variant;
sTxt : String;
begin
aArray := VarArrayCreate([0, 8], varOleStr);
for i := 0 to 8 do begin
sTxt := 'Eintrag ' + IntToStr(i+1);
aArray[i] := sTxt;
end;
// Beide Aufruf f�hren zum gleichen Ergebnis
ShowArrayItems(PSafeArray(TVarData(aArray).VArray) );
ListBox1.Items.Add('---------------');
ShowVariantArrayItems(aArray);
end;
 
procedure TForm1.ShowArrayItems(pValues: PSafeArray);
var
i : Integer;
swValue : WideString;
begin
for i := 0 to 8 do begin
SafeArrayGetElement(pValues, i, swValue);
ListBox1.Items.Add(swValue);
end;
end;
 
procedure TForm1.ShowVariantArrayItems(aValues: Variant);
var
i : Integer;
begin
for i := 0 to 8 do
ListBox1.Items.Add(aValues[i]);
end;
 
end.
</pre>
�ber SafeArrayGetDim und SafeArrayGetLBound etc. kann man vorher nachschauen, wie viele Elemente ausgepackt werden m�ssen:
<pre>
procedure TFormMain.ButtonInfoClick(Sender: TObject);
var
pSA : PSafeArray;
i : Integer;
swValue : WideString;
iDim : Integer;
iLBound : Integer;
iUBound : Integer;
begin
pSA := nil;
FSrv.GetInfos(pSA);
iDim := SafeArrayGetDim(pSA);
if iDim = 1 then
begin
SafeArrayGetLBound(pSA, 1, iLBound);
SafeArrayGetUBound(pSA, 1, iUBound);
for i := iLBound to iUBound do
begin
SafeArrayGetElement(pSA, i, swValue);
ListBox1.Items.Add(swValue);
end;
end;
SafeArrayDestroy(pSA);
end;
</pre&gt

**Ralf Bohnet** · 18.01.2005, 21:11

Hallo,

super ! vielen Dank - der folgende code f�hrt genau zum gew�nschten ergebnis (das problem hat mich die letzten 3wochen ganz sch�n besch�ftigt)

Eine letzte frage noch in der delphi hilfe findet man nichts zu safearraygetlbound, savearraygetelement, etc. wo kann ich denn noch n�here informationen zu diesen funktionen finden ? bzw. Fsrv.Getinfos(pSA) kann ich nicht ohne fehler einbinden, was aber die funktion des codes nicht zu beintr�chtigen scheint

Auf jedenfall hat mich dieses Bsp um Jahre nach vorne gebracht - jetzt kann ich endlich anfangen meine ideen in code umzusetzen

Nochmals Danke

Ralf

<pre>
var
pSA : PSafeArray;
i : Integer;
swValue : single; //ge�ndert von widestring
iDim : Integer;
iLBound : Integer;
iUBound : Integer;
begin
pSA := nil;

// Verbindung zur Typbibliothek
iquotes:= coMLInternetquotes.Create; // 2. coclasse definieren
iquotes.DownloadHistoricalQuotes('SUNW',20041013,2 0050114,d);
// PSaveArray abfragen
// Typbibliothek: function Get_adClose(out pVal: PSafeArray): HResult; stdcall;
iquotes.Get_adClose(pSa);

//FSrv.GetInfos(pSA);
iDim := SafeArrayGetDim(pSA);
if iDim = 1 then
begin
SafeArrayGetLBound(pSA, 1, iLBound);
SafeArrayGetUBound(pSA, 1, iUBound);
for i := iLBound to iUBound do
begin
SafeArrayGetElement(pSA, i, swValue);
ListBox1.Items.Add(floattostr(swValue));
end;
end;
SafeArrayDestroy(pSA);
end;
</pre&gt

**Andreas Kosch** · 19.01.2005, 07:44

Hallo,

>..Fsrv.Getinfos(pSA) kann ich nicht ohne fehler einbinden...

dahinter steckt der COM-Server, der seine Daten in einem SafeArray verpackt und als PSafeArray zum Client zur�ckschickt.

>..in der delphi hilfe findet man nichts zu safearraygetlbound...

Es handelt sich um Win32-API-Funktionen, die von Microsoft in den Hilfedateien des Microsoft Platform SDK (�ber 100 MByte Hilfe) dokumentiert werden. Dort taucht die Beschreibung im Abschnitt Component Service | COM | Conversion and Manipulation Functions | Array Manipulation API Functions auf. Die Delphi-Hilfe beschreibt generell nur die Funktionen, die Borland zus�tzlich zum Win32-API zur Verf�gung stellt

**Andreas Kosch** · 19.01.2005, 07:47

Hallo,

>..Fsrv.Getinfos(pSA) kann ich nicht ohne fehler einbinden...

dahinter steckt der COM-Server, der seine Daten in einem SafeArray verpackt und als PSafeArray zum Client zur�ckschickt.

>..in der delphi hilfe findet man nichts zu safearraygetlbound...

Es handelt sich um Win32-API-Funktionen, die von Microsoft in den Hilfedateien des Microsoft Platform SDK (�ber 100 MByte Hilfe) dokumentiert werden. Dort taucht die Beschreibung im Abschnitt Component Service | COM | Conversion and Manipulation Functions | Array Manipulation API Functions auf. Die Delphi-Hilfe beschreibt generell nur die Funktionen, die Borland zus�tzlich zum Win32-API zur Verf�gung stellt.

Siehe beigef�gte Abbildung

Announcement

Zugriff auf ein Array einer Typbibliothek

Zugriff auf ein Array einer Typbibliothek

Comment

Comment

Comment

Comment