Fwrite () - Cronologia

Vuott il 22:32, 14 giu 2024

2024-06-14T22:32:41Z

← Versione meno recente		Versione delle 16:32, 14 giu 2024
Riga 6:		Riga 6:
	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
	Private <FONT color=#B22222>Extern fwrite</font>(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long In "libc:6"		Private <FONT color=#B22222>Extern fwrite</font>(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long In "libc:6"
			Semplice esempio uso in Gambas in combinazione con le funzioni "fread()", "fseek()" e "fclose()": <SUP>[[[#Note\|nota 1]]]</sup>


	Semplice esempio uso in Gambas in combinazione con le funzioni ''fread()'', ''fseek()'' e ''fclose()'': <SUP>[[[#Note\|~~Nota~~ 1]]]</sup>
	Library "libc:6"		Library "libc:6"

Riga 27:		Riga 24:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim p, pw, pr As Pointer		Dim p, pw, pr As Pointer
	<FONT color=gray>' ''Al termine di una stringa alfanumerica è opportuno porre il valore aritmetico di zero (''null''),''		<FONT color=gray>' ''Al termine di una stringa alfanumerica è opportuno porre il valore aritmetico di zero (''null''), affinché usando poi la funzione "String@()" siano mostrati soltanto i valori precedenti quello zero:''</font>
	~~' ''~~affinché usando poi la funzione "String@()" siano mostrati soltanto i valori precedenti quello zero:''</font>
	Dim s As String = "Testo qualsiasi<FONT color=#B22222>\0</font>"		Dim s As String = "Testo qualsiasi<FONT color=#B22222>\0</font>"

			<FONT color=gray>' ''Poiché la variabile contenente i dati da scrivere nel flusso, e la variabile, nella quale si dovranno memorizzare i dati letti dal flusso, sono di tipo "Puntatore", allora anche nel codice Gambas si dovranno passare delle variabili di tipo "Puntatore":''</font>
	<FONT color=gray>' ''Poiché la variabile contenente i dati da scrivere nel flusso, e la variabile, nella quale si dovranno memorizzare i dati letti dal flusso,''		pw = Alloc(s)
	~~' ''~~sono di tipo "Puntatore", allora anche nel codice Gambas si dovranno passare delle variabili di tipo "Puntatore":''</font>		pr = Alloc(len(s))
	pw = Alloc(s)
	pr = Alloc(len(s))

	p = fopen("/tmp/f", "w+")		p = fopen("/tmp/f", "w+")

	<FONT color=#B22222>fwrite</font>(pw, 1, len(s), p)		<FONT color=#B22222>fwrite</font>(pw, 1, len(s), p)

	fseek(p, 0, SEEK_SET)		fseek(p, 0, SEEK_SET)

	fread(pr, 1, len(s), p)		fread(pr, 1, len(s), p)

	Print String@(pr)		Print String@(pr)

	fclose(p)		fclose(p)

	free(pw)		free(pw)
	free(pr)		free(pr)

	~~'''~~End~~'''~~		End

Vuott il 22:46, 20 ago 2020

2020-08-20T22:46:21Z

← Versione meno recente		Versione delle 16:46, 20 ago 2020
Riga 9:		Riga 9:


	Semplice esempio uso in Gambas in combinazione con le funzioni ''fread()'', ''fseek()'' e ''fclose()'':		Semplice esempio uso in Gambas in combinazione con le funzioni ''fread()'', ''fseek()'' e ''fclose()'': <SUP>[[[#Note\|Nota 1]]]</sup>
	Library "libc:6"		Library "libc:6"

Riga 56:		Riga 56:

	'''End'''		'''End'''



			=Note=
			[1] L'istruzione "fwrite()" del C può essere agevolmente emulata in Gambas con l'uso dell'istruzione "Write()" seguita nel primo campo dalla variabile di tipo ''File'', nel secondo campo da una variabile di tipo ''Puntatore'' che punta ad un'area di memoria contenente i dati da scrivere nel flusso, e da un terzo campo che esplicita il numero di dati da scrivere:
			Write #file, puntatore, numero_di_dati

Vuott il 02:04, 4 nov 2017

2017-11-04T02:04:38Z

← Versione meno recente		Versione delle 20:04, 3 nov 2017
Riga 31:		Riga 31:
	Dim p, pw, pr As Pointer		Dim p, pw, pr As Pointer
	<FONT color=gray>' ''Al termine di una stringa alfanumerica è opportuno porre il valore aritmetico di zero (''null''),''		<FONT color=gray>' ''Al termine di una stringa alfanumerica è opportuno porre il valore aritmetico di zero (''null''),''
	' ''affinché ~~in lettura~~ siano mostrati soltanto i valori precedenti quello zero:''</font>		' ''affinché usando poi la funzione "String@()" siano mostrati soltanto i valori precedenti quello zero:''</font>
	Dim s As String = "Testo qualsiasi<FONT color=#B22222>\0</font>"		Dim s As String = "Testo qualsiasi<FONT color=#B22222>\0</font>"

Vuott il 02:01, 4 nov 2017

2017-11-04T02:01:12Z

← Versione meno recente		Versione delle 20:01, 3 nov 2017
Riga 30:		Riga 30:

	Dim p, pw, pr As Pointer		Dim p, pw, pr As Pointer
	Dim s As String = "Testo qualsiasi"		<FONT color=gray>' ''Al termine di una stringa alfanumerica è opportuno porre il valore aritmetico di zero (''null''),''
			' ''affinché in lettura siano mostrati soltanto i valori precedenti quello zero:''</font>
			Dim s As String = "Testo qualsiasi<FONT color=#B22222>\0</font>"

Vuott il 14:28, 9 set 2016

2016-09-09T14:28:16Z

← Versione meno recente		Versione delle 08:28, 9 set 2016
Riga 20:		Riga 20:
	Private Extern <FONT color=#B22222>fwrite</font>(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long		Private Extern <FONT color=#B22222>fwrite</font>(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long

	Private Extern fseek(~~filestream~~ As Pointer, ~~offset~~ As Long, ~~whence~~ As Integer) As Integer		Private Extern fseek(__stream As Pointer, __off As Long, __whence As Integer) As Integer

	Private Extern fread(~~ptr~~ As Pointer, ~~size~~ As ~~Integer~~, ~~nmemb~~ As ~~Integer~~, ~~filestream~~ As Pointer) As ~~Integer~~		Private Extern fread(__ptr As Pointer, __size As Long, __n As Long, __stream As Pointer) As Long

	Private Extern fclose(~~filestream~~ As Pointer) As Integer		Private Extern fclose(__stream As Pointer) As Integer


Riga 40:		Riga 40:
	p = fopen("/tmp/f", "w+")		p = fopen("/tmp/f", "w+")

	<FONT color=#B22222>fwrite(pw, 1, len(s), p)~~</font>~~		<FONT color=#B22222>fwrite</font>(pw, 1, len(s), p)

	fseek(p, 0, SEEK_SET)		fseek(p, 0, SEEK_SET)

Vuott il 13:54, 9 set 2016

2016-09-09T13:54:36Z

← Versione meno recente		Versione delle 07:54, 9 set 2016
Riga 5:		Riga 5:

	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
	Private <FONT color=#B22222>Extern fwrite</font>(~~const void __restrict~~ __ptr, ~~size_t~~ __size, ~~size_t~~ __n, ~~FILE __restrict~~ __s) As ~~Integer~~ In "libc:6"		Private <FONT color=#B22222>Extern fwrite</font>(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long In "libc:6"

Vuott il 13:53, 9 set 2016

2016-09-09T13:53:31Z

← Versione meno recente		Versione delle 07:53, 9 set 2016
Riga 5:		Riga 5:

	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
	Private <FONT color=#B22222>Extern fwrite</font>(~~ptr As Pointer~~, ~~size As Integer~~, ~~nmemb As Integer~~, ~~s As Pointer~~) As Integer In "libc:6"		Private <FONT color=#B22222>Extern fwrite</font>(const void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __s) As Integer In "libc:6"


Riga 16:		Riga 16:
	Private Extern fopen(fl As String, mode As String) As Pointer		Private Extern fopen(fl As String, mode As String) As Pointer

	<FONT color=gray>' ''size_t fwrite(void ~~ptr~~, size_t ~~size~~, size_t ~~nmemb~~, FILE ~~stream~~)''		<FONT color=gray>' ''size_t fwrite (const void __restrict __ptr, size_t __size, size_t __n, FILE __restrict __s)''
	' ''Write chunks of generic data to STREAM.''</font>		' ''Write chunks of generic data to STREAM.''</font>
	Private Extern <FONT color=#B22222>fwrite</font>(~~ptr~~ As Pointer, ~~size~~ As ~~Integer~~, ~~nmemb~~ As ~~Integer~~, ~~filestream~~ As Pointer) As ~~Integer~~		Private Extern <FONT color=#B22222>fwrite</font>(__ptr As Pointer, __size As Long, __n As Long, __s As Pointer) As Long

	Private Extern fseek(filestream As Pointer, offset As Long, whence As Integer) As Integer		Private Extern fseek(filestream As Pointer, offset As Long, whence As Integer) As Integer

Vuott il 23:25, 11 gen 2016

2016-01-11T23:25:17Z

← Versione meno recente		Versione delle 17:25, 11 gen 2016
Riga 1:		Riga 1:
	La funzione della libreria di C		La funzione della libreria di C
	size_t fwrite(const void ~~ptr~~, size_t ~~size~~, size_t ~~nmemb~~, FILE ~~stream~~);		size_t fwrite (const void __ptr, size_t __size, size_t __n, FILE __s)
	scrive in un flusso n blocchi (''nmemb'') di dati, aventi ciascuno una dimensione di ''size'' byte, memorizzati nel buffer puntato da un Puntatore (''ptr''). Ritorna il numero di byte scritti nel flusso.		scrive in un flusso n blocchi (''nmemb'') di dati, aventi ciascuno una dimensione di ''size'' byte, memorizzati nel buffer puntato da un Puntatore (''ptr''). Ritorna il numero di byte scritti nel flusso.


	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
	Private <FONT color=#B22222>Extern fwrite</font>(ptr As Pointer, size As Integer, nmemb As Integer, ~~filestream~~ As Pointer) As Integer In "libc:6"		Private <FONT color=#B22222>Extern fwrite</font>(ptr As Pointer, size As Integer, nmemb As Integer, s As Pointer) As Integer In "libc:6"


Riga 16:		Riga 16:
	Private Extern fopen(fl As String, mode As String) As Pointer		Private Extern fopen(fl As String, mode As String) As Pointer

	<FONT color=gray>' ''size_t fwrite(void ptr, size_t size, size_t nmemb, FILE stream)''</font>		<FONT color=gray>' ''size_t fwrite(void ptr, size_t size, size_t nmemb, FILE stream)''
	Private <FONT color=#B22222>~~Extern~~ fwrite</font>(ptr As Pointer, size As Integer, nmemb As Integer, filestream As Pointer) As Integer		' ''Write chunks of generic data to STREAM.''</font>
			Private Extern <FONT color=#B22222>fwrite</font>(ptr As Pointer, size As Integer, nmemb As Integer, filestream As Pointer) As Integer

	Private Extern fseek(filestream As Pointer, offset As Long, whence As Integer) As Integer		Private Extern fseek(filestream As Pointer, offset As Long, whence As Integer) As Integer

Vuott il 00:06, 15 set 2014

2014-09-15T00:06:23Z

← Versione meno recente		Versione delle 18:06, 14 set 2014
Riga 41:		Riga 41:
	<FONT color=#B22222>fwrite(pw, 1, len(s), p)</font>		<FONT color=#B22222>fwrite(pw, 1, len(s), p)</font>

	fseek(p, SEEK_SET~~, 0~~)		fseek(p, 0, SEEK_SET)

	fread(pr, 1, len(s), p)		fread(pr, 1, len(s), p)

Vuott il 23:34, 14 set 2014

2014-09-14T23:34:17Z

← Versione meno recente		Versione delle 17:34, 14 set 2014
Riga 10:		Riga 10:

	Semplice esempio uso in Gambas in combinazione con le funzioni ''fread()'', ''fseek()'' e ''fclose()'':		Semplice esempio uso in Gambas in combinazione con le funzioni ''fread()'', ''fseek()'' e ''fclose()'':
			Library "libc:6"

	Private Const SEEK_SET As Integer = 0		Private Const SEEK_SET As Integer = 0