| |
| |
|
Andreas
Gaida | Hi!
j'ai ici une pour mich wichtige frage zur erstellen de DLL et en weitergabe.
j'ai mir avec Purebasic une DLL erstellt. qui MD5 befehle de Purebasic dans sich hat ,habe cela mais alles so erweitert cela vous de Profan aufgerufen volonté peut et comme eigener Tread courir sans Profan anzuhalten et Message trop verständigen si Tread fertig ist.
je serait volontiers qui DLL ici libre trop la disposition se mettre mais habe considérer à cause de Outsourcing.
mon Frage ist habe je genug eigenes erarbeitet ou bien pourrait on mich à cause de Outsourcing qui
Befehle MD5FileFingerprint() ,MD5Fingerprint() ,IsThread() belangen.
si quelqu'un là trop näheres wüste wäre je pour Beratung très reconnaissant.
qui Quellcode qui de mir erstellten MD5 DLL
ProcedureDLL MD5_FILE_Thread(Lnge.l)
Shared Text.s
adrre.l = PeekL((Lnge.l + 0 ))
lenge.l = PeekL((Lnge.l + 4 ))
but1.l = PeekL((Lnge.l + 8 ))
tid.l = PeekL((Lnge.l + 12))
hwd.l = PeekL((Lnge.l + 16))
msg.l = PeekL((Lnge.l + 20))
lpa.l = PeekL((Lnge.l + 24))
wpa.l = PeekL((Lnge.l + 28))
Text = PeekS(adrre.l, lenge.l)
Text = MD5FileFingerprint(Text)
PokeS(but1.l, Text)
Si (hwd.l > 0) And (msg.l > 0)
result.l = SendMessage_ (hwd.l,msg.l,wpa.l,tid.l)
EndIf
ProcedureReturn @Text
EndProcedure
ProcedureDLL MD5_BUFFER_Thread(Lnge.l)
Shared Text.s
adrre.l = PeekL((Lnge.l + 0 ))
lenge.l = PeekL((Lnge.l + 4 ))
but1.l = PeekL((Lnge.l + 8 ))
tid.l = PeekL((Lnge.l + 12))
hwd.l = PeekL((Lnge.l + 16))
msg.l = PeekL((Lnge.l + 20))
lpa.l = PeekL((Lnge.l + 24))
wpa.l = PeekL((Lnge.l + 28))
;Text = PeekS(adrre.l, lenge.l)
Text.s = MD5Fingerprint(adrre.l, lenge.l)
PokeS(but1.l, Text)
Si (hwd.l > 0) And (msg.l > 0)
result.l = SendMessage_ (hwd.l,msg.l,wpa.l,tid.l)
EndIf
ProcedureReturn @Text
EndProcedure
ProcedureDLL Start_Thread_MD5_File(Lnge.l)
Shared MD5A.s
Fil.l = CreateThread(@MD5_FILE_Thread(), Lnge.l)
PokeL((Lnge.l + 12), Fil.l)
ProcedureReturn Fil.l
EndProcedure
ProcedureDLL Start_Thread_MD5_Buffer(Lnge.l)
Shared MD5A.s
Fil.l = CreateThread(@MD5_BUFFER_Thread(), Lnge.l)
PokeL((Lnge.l + 12), Fil.l)
ProcedureReturn Fil.l
;ProcedureReturn Lnge.l
EndProcedure
ProcedureDLL INFO_DLL()
Shared MD5A.s
MD5A = MD5 DLL V0.01 de Andreas Gaida
ProcedureReturn @MD5A
EndProcedure
ProcedureDLL Status_MD5_Thread(Lnge.l)
Shared MD5A.s
Fil.l = IsThread(Lnge.l)
ProcedureReturn Fil.l
EndProcedure
MfG
Andreas |
|
| |
| Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b | 31.03.2008 ▲ |
|
| |
|
|
H.Brill | alors je serait es NICHT faire, alleine à cause de
qui Cipher et Fil - Libraries. là donnais es früher
déjà öfter Ärger deswegen. seulement entier Hausgemachtes
ist erlaubt.
peux qui DLL mais sans schlechtes Gewissen pour toi privat
nutzen.
Lies mais aussi encore qui Nutzungsbedingungen dans qui PB-Aider,
là steht es aussi encore sous Rechtliches drin.
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 01.04.2008 ▲ |
|
| |
|
|
Andreas
Gaida | Hi!
Thx pour den le conseil ,werde ihm aussi befolgen.
là on heut trop tage pour chacun kleinigkeit juste um zig Tausende verklagt volonté peux ist es wohl gesünder pour mich.
aussi si mon Gewissen aussi andersrum rein wäre , si chacun soviel argent pour Software ausgeben serait comment je
hätte qui monde pas seulement une Bill Gates.
MfG
Andreas |
|
| |
| Athlon X2 4800 , 2GB Ram , GeForce 7800GT
Windows XP Pro , XProfan 10 und 11 , Profan2Cpp 1.6b | 03.04.2008 ▲ |
|
| |
|
|
H.Brill | oui, belassen wir es hierbei.
encore comme Anmerkung :
Mir wäre es oui égal, mais bedenke, qui ici aussi so
mancher PBler (comme Invité) mitliest. là passiert es vite, qui
quelqu'un une Link im PB-Forum pour ici pouvoir, et es ensuite trop
unnötigen Diskussionen venez.
je selber habe avant Jahren dans einem relativ unbekannten
Basic-Forum erlebt, comment sur einmal là bekannte gens aus
anderen Programmier - Foren là étions. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 03.04.2008 ▲ |
|
| |
|
|
 | H.Brill
seulement entier Hausgemachtes
ist erlaubt.
je crois entier sooo ist es aussi pas.
c'est hingegen sicherlich unerwünscht/pas erlaubt si Vous Bibliothèque publizierst quelle un reiner Wrapper bereits vorgefertigter Funktionen ist.
Ab quand une Bibliothèque un reiner Wrapper ist serait je z.B. so formulieren:
un reiner Wrapper permet cela Nutzen de Funktionen par un d'autre but (but wäre hierbei z.B. XProfan) comme ursprünglich prévu et bietet ausser einer nötigen Schnittstelle zum but im Relations le gewrappten Funktionen keinen weiteren ou bien verhältnismäßig geringen Sinn.
Deinen o.g. Voir le texte source im Initialposting serait je z.B. comme solch une reinen Wrapper appel.
PS: Wrapper hat (malheureusement) wenig avec Wopper trop 1faire!  |
|
| |
| |
| |
|
|
H.Brill | oui, IF magst oui wohl avoir raison.
venez toujours puis à, comment on es sieht.
était oui seulement un bon conseil, là manche aus qui PB - Gemeinde
malheureusement quelque chose trop oui c'est ca sommes et seulement sur quelque chose comme attendre. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 04.04.2008 ▲ |
|
| |
|
(1.852)
Deutsch
English
Français
Español
Italia