Visual Basic Forum

Verfasst am: 02.02.2012, 10:41 Aufrufe: 364

Hallo zusammen, ich habe immer wieder Probleme mit einem selbst geschriebenen OCX (binär kompatibel). Wenn ich in irgendeiner Form mal die Schnittstelle ändere, meckert VB. Ist ja auch ok. Müssen halt alle Programme neu kompiliert werden, die das haben. Leider "passiert" es mir manchmal, dass ich danach unter Komponenten mein OCX zweimal angezeigt bekomme. Pfad und Dateiname sind identisch. Mit r ...

Verfasst am: 25.03.2010, 11:27 Aufrufe: 598

... t man kann auch öfters print hintereinander schreiben Sprich open "C:\Testordner\Test.txt" for output as #1 Print #1, "das ist ein Test gewesen" Print #1, "das ist noch ein Test gewesen" Print #1, "und weils so lustig ist noch einer" close #1 mit append wird in der bestehenden datei der text hinten angehängt mit binary wird die datei binär ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) 'Schleife für iLoops For i = 1 To iLoops fShredd ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

„CUSTOM“ gibt an welche Art von Ressource das ist, und es ist ja eine Benutzerdefinierte.Open (App.Path & "Programm.exe") For Binary As #1Hier öffnen wir nun die Datei, außer sie existiert noch nicht, dann wird sie erstellt.Das ganze passiert im Binär Modus und ich habe hier die Nummer #1 gewählt für diese Datei.Wenn ihr euch damit nicht auskennt, dann solltet ihr euch zuerst über dieses Th ...

Verfasst am: 12.04.2009, 17:57 Aufrufe: 408

hi, iwie bekomm ich es nicht gebacken, eine datei iirgendeinen typs binär auszulesen. mit den filestreams hab ich noch so probleme. kann mir jmd ein beispiel geben?

Verfasst am: 18.03.2009, 16:42 Aufrufe: 693

du kannst die taskmngr.exe oder wie die heißt binär öffnen und nicht schließen

Verfasst am: 25.09.2008, 15:17 Aufrufe: 3374

... ck _ As Long) As LongBlockInput (True)'bzwBlockInput (False)[/code]Hiermit kann man den pc "einfrieren". maus und tastatur reagieren nicht.ABER:wenn man strg+alt+entf drück, wird der gesamte schutz ausgeschaltet. man kann wieder maus und tastatur benutzen :confused:das schockt ja nicht, und deswegen die frage:gibt es eine alternative zu "BlockInput" oder kann man strg+alt+entf blockieren (taskmanager binär ...

Verfasst am: 22.09.2008, 16:28 Aufrufe: 2203

Verfasst am: 09.09.2008, 12:56 Aufrufe: 1145

Verfasst am: 08.09.2008, 13:44 Aufrufe: 1597

... ow vielen Dank, jetzt hab ich es verstanden =)Aber bedarf es nicht einer großen Rechenleistung wenn man jedes Pixel einzeltn einliest, vergleich und es dann in einer Variable abspeichert?Und noch 2 Fragen:1) Wenn ein Pixel eingelesen wird und vergleicht wird das Ergebnis 0 (= Pixel hat sich geändert) ist, wie verschick ich dann dieses Pixel? Bzw wie sieht so ein Pixel überhaupt aus?2) Muss ich dann alles in binär ...

Verfasst am: 08.09.2008, 11:31 Aufrufe: 1597

Wow vielen Dank, jetzt hab ich es verstanden =)Aber bedarf es nicht einer großen Rechenleistung wenn man jedes Pixel einzeltn einliest, vergleich und es dann in einer Variable abspeichert?Und noch 2 Fragen:1) Wenn ein Pixel eingelesen wird und vergleicht wird das Ergebnis 0 (= Pixel hat sich geändert) ist, wie verschick ich dann dieses Pixel? Bzw wie sieht so ein Pixel überhaupt aus?2) Muss ich dann alles in binär ve ...

Verfasst am: 12.05.2008, 14:28 Aufrufe: 719

Dateien binär über das Winsock-Control senden und empfangen

Verfasst am: 12.05.2008, 14:25 Aufrufe: 719

Moin Leute!Also hier das Problem:Ich kann zwa Daten über Winsock schicken (mit dem Source von ZiG hier) aber wenn ich jetzt größere Daten verschicken möchte, kommen die nur als höchstens 8kb große Datei an!Ich denke das liegt daran, dass Winsock nicht so viel auf einmal senden kann.Die Datei wurde ja davor binär eingelesen. Das wird dann in einen String gepackt und verschickt.Jetzt wollte ich das so machen:Wenn der S ...

Verfasst am: 10.05.2008, 17:44 Aufrufe: 515

Verfasst am: 26.04.2008, 19:17 Aufrufe: 403

Lads doch einfac binär. open Path for binary as F tmp = space(LOF(F)) get f,, tmp close f

Verfasst am: 23.04.2008, 21:55 Aufrufe: 446

du solltest erstmal lernen, wie man binär schreibt/einliest und dich mit winsock befassen. Du überträgst einen string und schreibst diesen binär in eine Datei. Ohne grundkenntnisse kommst du nicht weit.

Verfasst am: 23.04.2008, 13:54 Aufrufe: 1070

Für einen Binder benötigst du folgende kentnisse: 1. String Teilen (Split oder Mid) 2. Binär einlesen und schreiben Das würde für einen einfachen Binder.

Verfasst am: 21.04.2008, 19:54 Aufrufe: 2307

Stop Then 'Attribute der Datei ändern Call SetAttr(sFilepath, vbNormal) 'Datei Binär öffnen ff = FreeFile Open sFilepath For Binary As #ff 'Dateigröße ermitteln iFilesize = LOF(ff) 'iBlocksize berechnen If iFilesize < iBlocksize Then iBlocksize = iFilesize 'Randomize initialisieren mit der Zeit wie lange Windows schon läuft Call Randomize(GetTickCount) ...

Verfasst am: 17.04.2008, 12:53 Aufrufe: 1921

... gt; Dim FileSize As Long Dim FilePos As Long Dim BytesToRead As Long Dim nResult As Long Dim Bytes() As Byte Dim F As Integer On Error GoTo ErrHandler ' Datei binär ...

Verfasst am: 06.04.2008, 00:09 Aufrufe: 360

Hi suche nen Code von Decimal zu Binär wie der threatname schon sagt. Hab auch bei google schon gesucht aber keine verwendbaren gefunden also bin für jede hilfe dankbar.

Verfasst am: 02.04.2008, 13:50 Aufrufe: 2033

blob" FF = FreeFile ' freien Datenkanal suchen Open sBlobPath For Binary As #FF ' Blobfile binär öffnen sFileContent = Space(LOF(FF)) ' Variable ist so groß wie die Datei ' denn LOF zählt die Bytes einer Datei in einem Datenkanal Get #FF, , sFileContent ' Inhalt der Datei in Variable laden ' die Angabe zwischen den Kommas ist das (optionale) Startbyte Close #FF ' Datenkanal s ...

Verfasst am: 15.03.2008, 19:22 Aufrufe: 562

Versuch mal die Datei binär zu öffnen und die komplette Datei dann mit x vollschreiben, anschliessend wieder speichern. Und dann ganz normal mit Kill() löschen.

Verfasst am: 09.03.2008, 15:24 Aufrufe: 406

Nochmal. Binär einlesen sollte dir eigentlich bekannt sein. Open ... for Binary as #1 Einfach die Datei in eine String Variable einlesen. Dann per Schleife jedes Zeichen extra konvertieren. Bei der Funktion Hex() kann man leider nicht einfach einen ganzen string angeben. For i = 1 To Len(sbuffer) sbuffer2 = sbuffer2 & Hex(Asc(Mid$(sbuffer, i, 1))) Next i Asc is ...

Verfasst am: 17.02.2008, 11:18 Aufrufe: 1392

Hierbei hat sich ' eine Blockgröße von 4096 Bytes (4 KB) als sehr gut erwiesen Const BlockSize As Long = 4096 Dim FileSize As Long Dim FilePos As Long Dim BytesToRead As Long Dim nResult As Long Dim Bytes() As Byte Dim F As Integer On Error GoTo ErrHandler ' Datei binär öffnen F = FreeFile Open sFile For Binary Access Read Shared As #F ' Dateigröß ...

Verfasst am: 15.01.2008, 20:49 Aufrufe: 330

... lData As Long) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4) If lRegResult <> ERROR_SUCCESS Then 'Irgendetwas ist schiefgegangen End If lRegResult = RegCloseKey(hCurKey) End Sub 'Registry-Eintrag auslesen (Binär ...

Verfasst am: 10.12.2007, 23:09 Aufrufe: 741

Verfasst am: 08.12.2007, 21:09 Aufrufe: 482

Binär öffnen, einlesen und neu schreiben. Stichwort Builder Tutorial oder auch das Binder Tutorial von mir.

Verfasst am: 04.12.2007, 18:52 Aufrufe: 3644

Jetzt fehlt nur noch die FileKill Funktion, dass ganze sieht dann so aus: Public Function FileKill(ByVal sFilename As String)As Boolean Dim F As Integer Dim sInhalt As String Dim FileSize As Long Dim ReadSize As Long Dim Size As Long Const BlockSize = 4096 ' Fehlerbehandlung aktivieren On Local Error GoTo FileKill_Error ' Datei binär öffnen F = FreeFile Op ...

Verfasst am: 04.12.2007, 10:33 Aufrufe: 589

Verfasst am: 30.09.2007, 09:55 Aufrufe: 308

Gibt wahrscheinlich ein Problem mit dem Übertragungsmodus. Probier halt mal mit FlashXP aus mit welchem Modus die Datei heil bleibt ( Einstellungen ->Übertragung ->Übertragungsmodus) ASCII, Binär oder Automatisch, einfach probieren und gucken wo es Probleme gibt.

Verfasst am: 22.04.2007, 11:24 Aufrufe: 472

Verfasst am: 15.03.2007, 23:52 Aufrufe: 5245

Verfasst am: 28.11.2002, 22:18 Aufrufe: 312