Beiträge von Martin_K

besten dank, ich probiers aus.

Ich hab mir eine kleine Software zusammengetippert, mit der ich bei meinem Lieblingsonlinespiel meine Markttätigkeiten verwalten kann. Dazu sende ich eine Abfrage über eine URL und bekomme die Antwort als downloadfile. Alles prima.

Nun gibts aber Sachen, für die ich mich einloggen muss - das läuft über OAuth 2.0. Da komme ich mit meinen Programmierfähigkeiten an meine Grenzen, denn für eine Abfrage muss ich nicht nur eine einzeilige URL schicken sondern mit Header...

Zitat

Create a Base64 encoded string, including padding, where the contents before encoding are your application’s client ID, followed by a :, followed by your application’s secret key (e.g. Base64(<client_id>:<secret_key>)). For example, given the input CLIENT_ID:CLIENT_SECRET, the resulting string should be Q0xJRU5UX0lEOkNMSUVOVF9TRUNSRVQ=.

• You will need to send the following HTTP headers (replace anything between <>, including <>):
  • Authorization: Basic <Base64 encoded credentials>
  • Content-Type: application/x-www-form-urlencoded
  • Host: login.eveonline.com

Finally, send a POST request to https://login.eveonline.com/v2/oauth/token with your form encoded values and the headers from the last step.

Wie schaffe ich mit XProfan 4 diese Hürde?

keine reine Textausgabe - ich gebe Bilder und Text aus, unter anderem mit:

bild& = Create("hPic",-1, "xo.jpg")

DrawSizedPic bild&, 2, 0 - 690, 171; 0

Drawtext 55,zeile%, "Position"

Ich habe ein unerwartetes Druckverhalten, wenn ich PDFs ausgebe: Drucke ich direkt auf einen der Drucker, kommt alles wunderbar so, wie ich es erwarte. Wähle ich den PDF-Writer von Microsoft als Drucker aus, dann ist die gesamte Seite etwa 7 bis 8 mm nach links gerückt. Ich habe jetzt mal interessehalber einen anderen PDF-Writer installiert - verhält sich analog wie der Microsoft-PDF-Writer - das gesamte Druckbild ist zu weit links.

Gibts ne einfach Lösung oder muss ich programmseits einen zusätzlichen Punkt einbauen, um bei PDF-Ausgabe einen Einzug links zusätzlich zu berücksichtigen?

hm, ich komme keinen Meter weiter:

i% = db("fbExec", ep&, "#transaction",0)

bringt mir "Invalid Token". ep& ist das gültige Handle, drei zeilen weiter läuft damit der Select-Befehl.

super, danke dafür!

Rumprobieren hat mich nicht weiter gebracht:

db("fbExec", "#TRANSACTION", N%)
db("fbExec", "#COMMIT",N%)
db("fbExec", "#ROLLBACK",N%)

was ist N%?

hört sich nach einer guten Lösung an. Was ist N%?

Ich arbeite mit einer Firebird Datenbank, die mittlerweile etwas größer geworden ist. Weil da häufig Neuberechnungen anstehen, die dann relativ viele Datensätze betreffen, wird die Berechnungszeit mittlerweile recht hoch - obwohl das Ding auf einem Gamer-PC mit SSD Laufwerk läuft, rechnet der ab und zu mal ne viertel bis halbe Stunde.... Könnt ihr mir mal nen Tip geben, welche Aktionen im Code unten zeitkritisch sind?

whileloop i%
  Y$ = GetText$(hTabelle&,&Loop-1,0)
  clearlist hGrid&
  X$ = "SELECT MKey, MTyp, MDatum, MText, MWert1, MWert2, MPreis, MPrim From MAT WHERE MPrim = '" + Y$ + "'"
  i% = @db("fbSQLExec", ep&, X$, hGrid&)
  Text$= GetText$(hGrid&,0,3)             '
  SetText DText&[8], str$(x%+1) + " Strings zu bearbeiten, bearbeite: "+Text$
  Key$ = GetText$(hGrid&,0,0)
  faktor! = val(GetText$(hGrid&,0,4))
  summe! = faktor! * ep!
  X$ = "UPDATE MAT SET MPreis='"+str$(summe!)+ "' ,MDatum = '"+ Date$(0) + "' WHERE MPrim = '" + Y$ + "'"
  db("fbSQLExec", ep&, X$,1)
  X$ = "SELECT SUM(MPreis) FROM MAT WHERE MTyp = 'B' AND MKey = '"+ Key$ +"'"
  @db("fbSQLExec", ep&, X$,hGrid&)
  summe! =  val(@GetText$(hGrid&,0,0))
  faktor! = 0
  X$ = "SELECT MWert1 FROM MAT WHERE MTyp = 'O' AND MKey = '"+ Key$+"'"
  @db("fbSQLExec", ep&, X$,hGrid&)
  faktor! =  val(@GetText$(hGrid&,0,0))
  if faktor! > 0
    summe! = summe! / faktor!
  endif
  X$ = "UPDATE MAT SET MPreis='"+str$(summe!)+ "' ,MDatum = '"+ Date$(0) + "' WHERE MTyp = 'O' AND MKey = '"+ Key$+"'"
  db("fbSQLExec", ep&, X$,1)
  AddString Key$
endwhile

guter Tip mit den Online-Encodern, thx. wo wir grad dabei sind: wie bekomme ich mit XProfan eigentlich einen mehrzeiligen POST Request übertragen?

Für eine Authentifizierung muss ich einen Random 32 Byte Text in SHA256 kodieren...
code_challenge=<URL safe Base64(SHA256(URL safe Base64(random 32 byte string)))>
den kodierten Text übermitteln und in einer späteren Abfrage dann den original 32 Byte Text übertragen - hat jemand für so eine Verschlüsselung eine XProfan Routine geschrieben (entschlüsseln ist glaub ich gar nicht erforderlich...)

Danke, hat mich auf den richtigen Weg gebracht - hab zwar keine echte Ursache gefunden aber Abhilfe...
nachdem ich mit WinDBF32 die DBF in eine CSV abgespeichert habe, konnte ich die problemlos bei der kritischen Satzanzahl in Listview einlesen, auch wenn ich an die CSV noch Sätze angefügt habe.
Dann habe ich mal direkt mit der DBF in meiner Anwendung gespielt: Ich habe mal die kritische Anzahl an Sätzen erzeugt - Listview bringt einen Absturz. Nach Neuaufrauf habe ich mit meiner Anwendung an die DBF noch einen zusätzlichen Satz angefügt und plötzlich mag Listview wieder alles ganz normal einlesen und anzeigen...

aktuell 1817 kB

wird die DBF mit XProfan bearbeitet: ergänzt, Sätze gelöscht, indiziert, alles kein Problem. Wenns knallt, kann ich die DBF fehlerfrei mit WinDBF öffnen, sobald ich einen beliebigen Satz lösche, kann ich dann wieder mit der XProfan-Anwendung die DBF in das Listview laden.

ich hab den Code auch schon etliche Monate nicht mehr anfassen müssen und musste auch erstmal suchen... Das ganze ist eine DBF, beim DIM stand ursprünglich "Dim xbereich#,bytes&+100" - ich habe das auf Verdacht und ohne Ahnung, was ich tue mal auf +3000 erhöht, aber es brachte keine Verbesserung... ist halt doch nachteilig, wenn man nur Feierabendprogrammiert ohne das jemals gelernt zu haben...
Code schaut so aus:

hGrid& = @Create("Dialog", %hWnd, "  Vorgänge", spalte%, zeile%, %MaxX-(breite%+10), %MaxY-(zeile%+30))
  listview&=CreateListView(hGrid&,%hinstance,-1,Rgb(255,255,255),-1,$421)  '24
text$="XBAUST.DBF"
  bytes&=@FileSize(text$)
  If bytes&>0
    Dim xbereich#,bytes&+3000
    ReadFileQuick(addr(text$),xbereich#,0,bytes&)             ' Dbf-Datei laden
    bytes&=DbfToCsv(xbereich#,bytes&,0,0,2)                   ' Dbf konvertieren nach Csv
    x&=CsvToHeader(listview&,xbereich#,addr(y&))              ' Automatisch Spalten aus Csv-Datei erstellen
    CsvToListview(listview&,(xbereich#+y&),(bytes&-y&),x&)    ' Csv Datei als Items in Listview einlesen
    Dispose xbereich#
  EndIf

Wenn ich in der DBF mit nem externen Tool beliebige Zeilen lösche, dann kann ichs wieder normal einlesen - es muss also da irgendein Problem mit der Anzahl der Datensätze geben...

Ich habe Frank Abbings Listview.dll im Einsatz, seit Jahren keine Zicken - jetzt habe ich bei einer Datenbank wohl eine Grenze überschritten: wenn ich 1790 Datensätze lade und an die Listview gebe, stürzt XProfan stumpf mit der Meldung ab, dass Listview.dll der Übeltäter sei - gibts da irgendwo ne Grenze oder kann ich da was umgehen?

Ich habe eine Reaktion von Kaspersky bekommen:
"Entschuldigung, dies war eine irrtümliche Erkennung. Das Problem wird mit dem nächsten Update behoben.
Vielen Dank für Ihre Hilfe.Mit freundlichen Gru?en, NewVirus39A/3 Leningradskoe Shosse, Moskau, 125212, Russland Tel./Fax: + 7 (495) 797 8700 http://www.kaspersky.com http://www.viruslist.com"

Evedb.exe gepostet bei Virustotal und bei Kaspersky als falsch positiv hochgeladen

Link zu Virustotal

AZWin.exe ebenfalls:

Link

jetzt wird auch der Editor XProfEd.exe von Kaspersky angemault... hab das auch mal bei Kaspersky gemeldet...

über die Umdefinition der Datenbankfelder von numerisch zu CHAR bekomme ich jetzt die korrekten Werte, aber Roland sollte trotzdem mal drauf schauen - dürfte ja nicht nur bei mir so sein, oder?

Ich nutze den Kaspersky Anti-Virus 17.0.0.611(c). Xprofan X3. Nachdem er gerade eben beim einloggen in Windows auch das mit XProfan mitgelieferte Spiel 3DSpiel.exe anmeckerte und behauptete, auch da wäre der Trojan-Ransom.Win32.Blocker.jxmb drin versteckt, scheint es sich wohl um ein Problem mit neuen Virendefinitionen bei Kaspersky zu handeln. Sehr ärgerlich - mich machte gestern ein Kollege drauf aufmerksam, der meine Software bei sich aufrufen wollte und da gleich der Kaspersky zuschlug.
Scheint auf zahlreiche XProfan-Programmcodes zuzutreffen, als ich grad mit dem Explorer ins Programmverzeichnis wechselte, hat er gleich die helfer.exe angemault.