Cómo migrar de gitlab a github
Usar idt: integer;
begin idt:=files.Count; si (no está muerto) entonces
comenzar
?for i:=0 a cnt-1 hacer
? comenzar
?nombre de archivo:=archivos[i];
si el archivo existe (nombre de archivo) entonces p>
comenzar
intentar
S := '------------------------ - ---7cf1d6c47c' CRLF
?Disposición de contenido: formulario-datos; nombre="archivo1"; nombre de archivo="' nombre de archivo ''' CRLF
?'Tipo de contenido: application/octet-stream' CRLF CRLF;
//cargar contenido del archivo
s1:='archivo de un contenido.Contant-Type puede ser un programa de aplicación /octet stream, o puede solicitar al sistema operativo el tipo exacto si '
' lo necesita.
CRLF
'--------------------------------7cf1d6c47c' CRLF //Delimitador, utilizado para campos de formularios separados en
'Content-Disposition: form-data; name="text1"' CRLF CRLF
'hello2' CRLF
'--- - ----------------------- --7cf1d6c47c--';
// Siguiente formulario enviado Contenido del campo de contenido
s1:=CRLF '--------------------------------7cf1d6c47c ' CRLF p>
'Disposición de contenido: formulario-datos; nombre="text1"' CRLF CRLF
'hola2' CRLF
'----- ---- --------------------7cf1d6c47c--';
Fuente:= TMemoryStream.Create;
Fuente1:= TMemoryStream .Create;
Fuente1.LoadFromFile(nombre de archivo);
Respuesta:= TStringStream.Create('');
Respuesta.CopyFrom( source1, source1. Size);
s:=s Response.DataString; //porque solo se pueden pasar cadenas
Source.Position:= 0; > Fuente.Write (s[1], longitud(es));
Fuente.Position:= fuente.Tamaño;
Fuente.Write(s1[1], longitud( s));