Red de conocimiento informático - Material del sitio web - Cómo migrar de gitlab a github

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

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

'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));