Download DLL?!

Darnus · Beiträge: 34

Hallo

Habe ein problem: Habe neu angefangen mit delphi zu arbeiten.. und möchte für den "Game Maker" eine download DLL bauen. So zuerstmal weiss ich nicht ob das hier richtig ist doch beim aufrufen passiert einfach nix, und ich möchte arg1 und arg2 benutzen können, das geht aber auch nicht! Kann mir jemand die funktion meiner DLL bitte beschreiben also was ich hier gemacht habe und was ich vergessen habe?! BIG Thx für die antworten.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

library Download;
uses Windows,
  SysUtils,
  Classes,
  shellapi,
  URLmon;

function dl(arg1,arg2:string): String Stdcall;
begin
 URLDownloadToFile(nil,'http://come2own.de/psdsoft/logo.wmv','C:\tes.wmv', 0, nil);
end;
exports dl;
begin
end.

EDIT: die funktion geht also der download! jetzt brauche ich nur die antworten auf arg1 (URL) und arg2 (Speicher unter), unten die funktion geht nicht!!! Kommt dann ein fehler.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

library Download;
uses Windows,
  SysUtils,
  Classes,
  shellapi,
  URLmon;

function dl(arg1,arg2:string): String Stdcall;
begin
 URLDownloadToFile(nil,arg1,arg2, 0, nil);
end;
exports dl;
begin
end.

Moderiert von raziel: Quote- durch Delphi-Tags ersetzt

Martok · Verfasst: Mi 23.08.06 02:28

Und welcher Fehler? Ohne wird man wohl kaum weiter kommen.

Mal davon abgesehen, außer Delphi kennt niemand den Typ String, daher muss PChar verwendet werden. Hat Mark glaub ich auch im Handbuch beschrieben...*guckt nach*... Aha, hier mal sein Beispiel:.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

library MyDLL;

uses SysUtils, Classes;

var res : array[0..1024] of char;
function DoubleString(str:PChar):PChar; cdecl;
begin
  StrCopy(res,str);
  StrCat(res,str);
  Result := res;
end;

exports DoubleString;

begin
end.

Ist für dich aber einfacher, deine Funktion müsste so gehen. Ich denke auch nicht, dass du einen Rückgabewert brauchst?:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure dl(from,local:PChar); Stdcall;
begin
  URLDownloadToFile(nil,from,local, 0, nil);
end;

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

Darnus · Beiträge: 34

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

library Download;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,URLmon, StdCtrls;

Function dl(from,local:PChar):Pchar; Stdcall;
begin
  URLDownloadToFile(nil,from,local, 0, nil);
end;
exports dl;
begin
end.

Ich habe das nun so gemacht, es kommt zwar ne wahrnung ([Warning] Download.dpr(11): Return value of function 'dl' might be undefined) aber es geht so wie ich es mir vorgestellt habe. Wenn ich deine variante nehme gibts wieder Error vom Mark :nixweiss:

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Um an DLLs Strings zu übergeben musst du ShareMem als ALLERERSTE unit in die usesklausel einbinden. alternativ kannst du dir Suche in: Delphi-Forum, Delphi-Library

FASTSHAREMEM besorgen, dann sparst du dir glaub dateigröße.
Ausserdem ahst du in der Funktion Result nichts zugewiesen, darum ist der Rückgabewert auch undefiniert. macht aber nix, die dll wird trotzdem erstellt.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Martok · Verfasst: Mi 23.08.06 03:21

Hm, scheint so, als ob der immer eine Rückgabewert haben will, also eine function. Mach doch den Rückgabewert als integer, dann kannst du gleich den Rückgabwert der Downloadfunktion nehmen (Result:= URLDownloadToFile(...))

Und das mit ShareMem wird so nichts, weil beide Seiten die haben müssen. Und GameMaker definitiv nicht, auch wenn er auch Delphi ist.

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Das wusst ich nicht. Aber ist doch nur eine Warnung, kein Fehler, die Kompilierung scheint doch zu klappen?

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Darnus · Beiträge: 34

Jo, der fehler sagt nur das was mit dem Result also der rückfrage net stimmt ansonsten gehts! wenn ich statt funktion -> procedure nehme kommt von GM fehler. Wenn ich bei funktion nur das mache: dl(from,local:PChar); Stdcall; dann hat er mit der Kompilierung nen problem. Ein problem jagd das andere ...

Darnus · Beiträge: 34

Habe noch etwas rumgepfeilt .... und...
Ich habs, ohne wahrnung und ohne fehler

geht 100% so! Danke Jungs!

Ne kleine frage noch: Ich möchte evtl eine Transfer Rate aus der dll haben, aber dann muss ich auf Indy Umschreiben oder?!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

library Download;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,URLmon, StdCtrls;

procedure dl(from,local:PChar); Stdcall;
begin
  URLDownloadToFile(nil,from,local, 0, nil);
end;
  exports dl;

end.

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Es gibt eine möglichkeit, mit URLDownloadToFile eine Progressbar einzubinden - wenn dir das hilft. Es ist nicht möglich, in einer DLL eine indykomponente einzubinden, zumindest hab ich das versucht und bin gescheitert. Siehe hierzu meinen Thread.
Für die Progressbar hab ich folgenden Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:

Type
    cDownloadStatusCallback = Class(TObject, IUnknown, IBindStatusCallback)
    Private
        Function QueryInterface(Const IID: TGUID; Out Obj): HResult; Stdcall;
        Function _AddRef: Integer; Stdcall;
        Function _Release: Integer; Stdcall;
        Function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; Stdcall;
        Function GetPriority(Out nPriority): HResult; Stdcall;
        Function OnLowResource(reserved: DWORD): HResult; Stdcall;
        Function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; Stdcall;
        Function OnStopBinding(HResult: HResult; szError: LPCWSTR): HResult; Stdcall;
        Function GetBindInfo(Out grfBINDF: DWORD; Var bindinfo: TBindInfo): HResult; Stdcall;
        Function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult; Stdcall;
        Function OnObjectAvailable(Const IID: TGUID; punk: IUnknown): HResult; Stdcall;
    End;

Var
    Form1: TForm1;
    usercancel: Boolean = False;

Implementation

Function cDownloadStatusCallback._AddRef: Integer;
Begin
    Result := 0;
End;

Function cDownloadStatusCallback._Release: Integer;
Begin
    Result := 0;
End;

Function cDownloadStatusCallback.QueryInterface(Const IID: TGUID; Out Obj): HResult;
Begin
    If (GetInterface(IID, Obj)) Then
    Begin
        Result := 0
    End
    Else
    Begin
        Result := E_NOINTERFACE;
    End;
End;

Function cDownloadStatusCallback.OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.GetPriority(Out nPriority): HResult;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.OnLowResource(reserved: DWORD): HResult;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.OnStopBinding(HResult: HResult; szError: LPCWSTR): HResult; Stdcall;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.GetBindInfo(Out grfBINDF: DWORD; Var bindinfo: TBindInfo): HResult; Stdcall;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.OnObjectAvailable(Const IID: TGUID; punk: IUnknown): HResult; Stdcall;
Begin
    Result := S_OK;
End;

Function cDownloadStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult;
Begin
    Case ulStatusCode Of
        BINDSTATUS_FINDINGRESOURCE:
            Begin
                Form1.Label1.Caption := 'Datei wurde gefunden...';
                If (usercancel) Then
                Begin
                    Result := E_ABORT;
                    exit;
                End;
            End;
        BINDSTATUS_CONNECTING:
            Begin
                Form1.Label1.Caption := 'Es wird verbunden...';
                If (usercancel) Then
                Begin
                    Result := E_ABORT;
                    exit;
                End;
            End;
        BINDSTATUS_BEGINDOWNLOADDATA:
            Begin
                Form1.Gauge1.Progress := 0;
                Form1.Label1.Caption := 'Der Download wurde gestartet...';
                If (usercancel) Then
                Begin
                    Result := E_ABORT;
                    exit;
                End;
            End;
        BINDSTATUS_DOWNLOADINGDATA:
            Begin
                Form1.Gauge1.Progress := MulDiv(ulProgress, 100, ulProgressMax);
                Form1.Label1.Caption := 'Datei wird heruntergeladen...';
                If (usercancel) Then
                Begin
                    Result := E_ABORT;
                    exit;
                End;
            End;
        BINDSTATUS_ENDDOWNLOADDATA:
            Begin
                Form1.Label1.Caption := 'Download wurd beendet...';
                Form1.Gauge1.Progress := Form1.Gauge1.MaxValue;
            End;
    End;
    Application.ProcessMessages;

    Result := S_OK;
End;

Procedure download;
Var
    cDownStatus: cDownloadStatusCallback;
Begin
    cDownStatus := cDownloadStatusCallback.Create;
    Try
        URLDownloadToFIle(Nil, 'http://rmctool.rigismusiccity.de/RMCTool.exe',
            PChar(ExtractFilePath(Application.ExeName) + 'RMCTool.exe'), 0, cDownStatus);
    Finally
        cDownStatus.Free;
    End;
end;

Dazu brauchst du eine Gauge und einen Timer auf etwa 200ms. Ob dir das hilft weis ich nicht, ich denke aber, du kannst damit auf die Geschwindigkeit zurückrechnen. Irgentwie.
PS: Der code ist nicht von mir - Ich hab ihn aus irgent einem anderen Thread :oops:

sorry, ich weis nicht mehr woher...

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme