irta:

>>Felado :  [Hungary]
>>Temakor: wapos szamlalo ( 8 sor )
>>Kerdesem: lehetseges e szamlalni az index.wml megnyitasanak szamat es
>>azt megjeleniteni az index.wml-ben?
>Igen, lehetseges.
>--
>koka. icq#98705990
>Netszemle http://www.coollist.com/group.cgi?l=netszemle

Koszonom! A helyzet az, hogy nem igazan ertek a a http programozashoz,
ezert batorkodom megkerdezni: Hogyam kell mindezt csinalni?

<<
A Kerdesem a kovetkezo lenne, tudja-e valaki, hogy mi a turo az a BLOB
az sql serveren, es hogy hogyan kell hasznalni.
Tudtommal az ntext a text meg a image tipusu mezok kezelhetok
BLOB-kent az sql serveren.
Az egesz mogott az a kerdes all, hogy hogyan tudok feltolteni kepet az
SQL Serverre VB alol.
A Help ir valami GetChunk meg az AppenChunk metodusrol amivel lehet a
BLOB-okat kezelni. Ezt az Sql server helpje is emliti meg a Visual
Basic-e is de szamomra nem olyan ertheto.
>>

Nagymeretu binaris adatokat (BLOB) tombonkenti (chunk)
feltoltessel lehet az SQL szerverbe bepaszirozni az
ADO-n vagy RDO-n keresztül.

Az alábbi kodreszlet ezt mutatja be.

A javasolt tömbméret 8K a példában.

Íme a példa:

'---
----------------
Dim Cn As New Connection
Dim rsRead As New Recordset
Dim rsWrite As New Recordset
Dim strChunk As String
Dim Offset As Long
Dim Totalsize As Long
Dim Remainder As Long
Dim Chunks As Long
Const ChunkSize As Long = 8192
Const TempFile As String = "tempfile.tmp"

Private Sub Form_Load()
Cn.Open "biblio"    ' Assumes a DSN setup to point to biblio (any) db.
End Sub

Private Sub MakeTableButton_Click()
On Error GoTo MtEh
Cn.Execute "Drop table Myblob"
Cn.Execute "Create table Myblob (id int unique, info TEXT)"
FileCopy "Cover1.bmp", TempFile
WriteButton_Click
quitMT:
On Error GoTo 0
Exit Sub
MtEh:
    If Err = -2147217865 Then Resume Next 'The table does not exist
    MsgBox "Could not create table"
    Resume quitMT
End Sub

Private Sub ReadButton_Click()
Image1.Picture = Nothing
Open TempFile For Binary Access Write As #1
rsRead.CursorType = adOpenStatic
rsRead.Open "SELECT * FROM Myblob", Cn
Totalsize = rsRead("info").ActualSize
Chunks = Totalsize \ ChunkSize     ' Integer divide
Remainder = Totalsize Mod ChunkSize
strChunk = rsRead("info").GetChunk(Remainder)
Put #1, , strChunk
Offset = Remainder
Do While Offset < Totalsize
    strChunk = rsRead("info").GetChunk(ChunkSize)
    Offset = Offset + ChunkSize
    Put #1, , strChunk
Loop
rsRead.Close
Close #1
Image1.Picture = LoadPicture(TempFile)
End Sub

Private Sub WriteButton_Click()
Dim t() As Byte
Open TempFile For Binary Access Read As #1
rsWrite.CursorType = adOpenKeyset
rsWrite.LockType = adLockOptimistic
rsWrite.Open "SELECT * FROM MyBlob", Cn
If rsWrite.EOF Then rsWrite.AddNew
Totalsize = FileLen(TempFile)
Chunks = Totalsize \ ChunkSize
Remainder = Totalsize Mod ChunkSize
ReDim t(Remainder)
Get #1, , t()
Offset = Remainder
rsWrite("info").AppendChunk t()
ReDim t(ChunkSize)
Do While Offset < Totalsize
    Get #1, , t()
    Offset = Offset + ChunkSize
    rsWrite("info").AppendChunk t()
Loop
rsWrite.Update
rsWrite.Close
Close #1
End Sub
'---
----------------

Tóth Gábor

Hello!
Koszonom szepen mindenkinek a tanacsokat.
Sikerult megoldani a problemat.
Tobb fronton is probalkoztunk!
problema is ketto volt.
Egyik a nagy meretu memo mezok (volt 30k-is ). A masik a kódlap.
vegul is 2 programmal sikerult megcsinalni, ha jol emleszem.
1. A kdolapot tudta atallitani (dfbviewer 2000 asszem)
2. A borlandnak van egy datapump nevezetu progija ami mar at tudta szivni az
adatokat   egy sybase tablaba (tablakba)

Az osszes tobbi (ms DTS, Power pipe) elszallt. Oracle lett volna a
kovetkezo, de kozben megleltuk a megoldast, amennyiben nem boldogulunk lesz
az ORACLE-s.

Meg egyszer koszonom szepen...

Móricz Tamás "MtSz"

Hali!

Az iránt érdeklődnék, hogy vindows programot hogyan tudok valamilyen modon
 eltávolitani a rendszerbol. ami egyenértékű a ctrl-alt-del kivalasztom, b
ezarom akciosorozattal? Nézegettem az user exe parametereit, a destroywindow a 
closewindow talan jo lenne a feladatra, de nem tudom hogyan kell parameterezni,
 hogy el is talaljam az alkalmazást amit ki akarok lőni. természetesen ez 
egy talcas alkalmazás, egy capi driver. csak hogy ne legyen egyszerű a juz
ernek azt mondani, hogy klikk az Xre... valakinek otlete?

koszi!

Corpse

Pls irjatok meg a mailto: cimre is

(webes bekuldes, a bekuldo gepe: line-77-245.dial.freestart.hu)