At lave en fil

Jeg har et lille fint eksempel der forklarer hvordan man kopier filer over nettet ned på en HDD... Så hvis jeg kan få dig til at sende mig din mail.. så kan jeg sende det til dig...

Jeg vil lige gøre opmærksom på et at puntkerne, der findes vedrørende  pointgivning på Eksperten.dk

citat start:
_______________________________________
Der må ikke gives point for løsninger som ikke er tilgængelige for alle brugere af Eksperten.
Citat slut_________________

Dvs jeg ikke må få hjælp af djm33?

mark@tv.dk

Mvh Mark

OK allesammen... hvor skal jeg så uploade programmet... Hvis i har et sted... så gør jeg det, for jeg vil gerne være fair...

djm33 - send det til mig, så uploader jeg det til min egen server.

tak

OK... øjeblik...

djm33>>
Du kan få din egen hjemmeside og 50 mb gratis på denne adresse:
http://www.tripod.lycos.com/

djm33 - Tak for eksemplet, desværre kan jeg ikke få det til at virke. Kan du evt modificere den sådan at den ikke skal åbne en start fil og kopiere indholdet over i en anden, men at kopiere indholdet af min streng over i en ny fil.

Mvh mark

ea_data  : Jeg synes ikke lige det virker så godt, men jeg skl nok få kigger nærmere på det imorgen... Så skal jeg nok få sat et link end, hvis orca ikke gør det...

Orca: Desværre så meget har jeg ikke kigget på det... Men programmet er lavet i to dele... DVS. en del der sendet et kald på en fil, og en del der sendet svar tilbage med data i binær... Jeg vil anbefale at du tager dig god tid, for det er ikke lige til, men programmet indeholder alt hvad du skal bruge...

Ok, jeg kan ikke selv klare den. Filen ligger på www.profiled.org/file.zip

Hvis nogen anden kan klare at gøre så den virker med en streng af data, i stedet for at åbne en fil og så kopiere den. Så vil jeg dele point.

Mvh Mark

dim33>>
Det haster ikke. Jeg står ikke og skal bruge den nævnte funktionalitet. Jeg har kun gjort opmærksom på reglen, fordi jeg synes det er en god ide at både spørgsmål og svar kommer til alles kendskab. Det er jo netop denne vidensdeling som gør bl a Eksperten.dk værd at besøge.

ea_data : OK det er iorden...

Orca: Programmet er lavet på samme måde som f.eks. Direct Connect, Napster, WinMX... Det er på den måde man henter filer fra nettet binært... Det er lavet så du kan teste det lokalt på computeren, og så du kan få et indblik i hvordan det virker...

Ja men det har jeg ikke brug for. Jeg ved allerede hvordan jeg henter min fil og får dens binære data over i en streng. Hvad jeg har brug for, er hvordan jeg får denne streng manifesteret som en fil.

Det skulle vel heller ikke være noget problem hvis du allerede har hentet filen i binær... Det skulle jeg da ikke mene... For så henter du en pakke af gangen... indtil filen er færdig overført... og til sidst kan du åbne den...

hvordan \"henter jeg filen i binær\"? Er der en speciel måde jeg skal hente den på. Det er fra en http server.

orca >> Som jeg forstår dit spørsmål, kan du godt hente data fra nettet, men ikke gemme det i en file så det virker.

prøv med \"URLDownloadToFile\" (API)
den henter data og gemmer det i en file så det virker. :-)

Private Declare Function URLDownloadToFile Lib \"urlmon\" Alias \"URLDownloadToFileA\" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String)
Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
End Function

Private Sub Form_Load()
  DownloadFile \"www.profiled.org/file.zip\", \"c:\\file.zip\"
End Sub

Når det nu er billeder du vil hente fra nettet
så brug dataen med det samme frem for at gemme det i en file først ;-)

\'--------------------- Form1 ---------------------
Private Type TGUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(0 To 7) As Byte
End Type

Private Declare Function OleLoadPicturePath Lib \"oleaut32.dll\" (ByVal _
                szURLorPath As Long, ByVal punkCaller As Long, ByVal _
                dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef _
                riid As TGUID, ByRef ppvRet As IPicture) As Long

Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID  As TGUID

  With IID
    .Data1 = &H7BF80980
    .Data2 = &HBF32
    .Data3 = &H101A
    .Data4(0) = &H8B
    .Data4(1) = &HBB
    .Data4(2) = &H0
    .Data4(3) = &HAA
    .Data4(4) = &H0
    .Data4(5) = &H30
    .Data4(6) = &HC
    .Data4(7) = &HAB
  End With

On Error GoTo ERR_LINE
  OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
ERR_LINE:
  Set LoadPicture = VB.LoadPicture(strFileName)
End Function

Private Sub Form_Load()
  Set Me.Picture = LoadPicture(\"http://www.eksperten.dk/images/elogo.gif\")
End Sub
\'--------------------- Form1 ---------------------

Open \"c:\\FilNavn\") For Output As #1
        Print #1, strVar;
Close #1

Det skulle oprette din diskfil.

\'Der kom lige en \")\" for meget. Nu skulle den være der.

Open \"c:\\FilNavn\" For Output As #1
        Print #1, strVar;
Close #1

\'Det skulle oprette din diskfil.

Hvis det ikke virker korrekt så prøv at udskift order Output med ordet Binary.

Tak sjh - det virkede.

det var så lidt. :-)